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1.0 



PROGRAM PURPOSE (ABSTRACT) 



This program has the ability to test the DLil (Asynchronous 
Moa@n» Inttrfdce)f off llnet Models able to be tested are d 
D<r and E only. The use of a modem 1$ not required for 
testing? however^ a special cable connector BC05C and a 
special modem test connector H315A Is required,, This program 
is capable of the followingi 



Verification of maintenance bit 

Verification that transmitter can cause an interrupt 

Verification that receiver *D0NE* can cause an interrupt 

Checks that ^REQ TO SEnD^ asserts ^RING* 

Checks that ^SEC XMIT^ asserts *SEC REC* and '^DATA SET 

Checks that *DTR^ can assert ^CLR TO SEND^ and ^CAR DET^ 

verifies that *DATA SET !»£#* can cause a RECVR INTR 

Checks the rsREAK^ feature 

Performs nuil^del^^null pattern 

Performs binary up count pattern 

performs binary down count pattern 

Runs a worse case pattern 



Included in the program are special user routines « PRG #2# 
PPG #3# PRG #4f and PRG #5 (which will be described further 
into this documents 

^Jote well two(2) pointsi 

Is This program is capable of testing slxteendS) DLli^s and 
assumes contiguous addressing from 1st device to last® 

at If multiple devices are not being testedi thus not 
requiring a pass thru the program once per device* 
then the program will default to testing the 1st 
possible DLll«E device l^e^t RCSR address = 775610^ 
and test this device onlVs 

bg If multiple device testing Is not being conducted^ 
and the device eKlstlng is not the default DLll'^Ej 
then the user on starting the program will have to 
set SW<o>sl to enter the question & answer mode^ 

2s, This program has provision for character length i^e^^ it 
assumes data Is 8 bitSi but also has the ability to 
handle 5# 6# or 7 bits of data as wellt 



2tO SYSTEM REQUIREMENTS 

@g Hardware Requirements 

PDP^li family processor with 8K of memory 
M7800 DLil asynchronous line interface module 
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BC05C sptclal cablt connector 
H315A sptcial modem test connector 

bt Software Requlrewtnts 

This program wa$ specifically designed for the 11/40 
Front End of the 1080 Console Processor Systernt In this 
environment it ^ould be loaded by the TCDP (Dectape) 
diagnostic monitor® Howeveri any 11/40 user with 8K of 
memory can run this program to test oneCU or multiple 
DLll^Se 

The program has the proper Interface code to allow 
running under the automated manufacturing test line 
system • ACTllt 

3^0 RELATED DOCUMENTS AND STANDARDS 

at Programming Practices « Document No^ 175«'003«009«oo 

bg PDPlS/40 Processor Handbook 

Cg DLll Asynchronous liine Interface Manual 

Document No^ DEC«U»HDLAA 
dt PDP^^ll Maindec SYSMAC^ Utility Package 

MAINDEC«11«DZQAC»C3 
e,, Applicable Circuit Schematic 

M7800 



4^0 DIAGNOSTIC HIEPAFtCHY PREREQUISITES 

Before running this program^ the following two(2) diagnostic 
programs should be run for verification of functionality of 
the ll«lnstruction set and memoryi 

Ig MAINDEC-^ll^DBQEA and^ 
2, MA1NDEC«11-DZQMC 



5,0 LOADING AND STARTING PROCEDURE 

Load program in memory using ABS loader 
Load address 200^ 

NOTE 

In the case of a 1090 system environment 
load the program using the TCDP 
(dectape) Diagnostic Monitor^ 

Press starts 

at There are also three(3) optional start addresses for the 
programi 



ji^. 



Page 5 



204 * selects program #2 

210 ^ selects program #3 

214 «• selects program #4 

220 « selects program #5 



6e0 SPECIAL ENVIROW^KNTS 

If this program is run in QulcK Verify Mode under 
program is done after the first passg 



ACTU the 



7tO PROGRAM OPTIONS 

SWITCH USE 



15sl 
14sl 
13ssl 
12sl 
llsl 
JOsl 
9 = 1 
8sl 
<7|0> 



or up Halt on error 

or up Loop on test 

or up Inhibit error typeouts 

or up /C or /D model being tested 

or up Inhibit iterations 

or up Bell on error 

or up Loop on error 

or up Loop on test in SWR<7§0> 

Holds test no^ of test to be looped on 

in conjunction with SW<8>9 
Osl or up Used in device table creation (1 to 16 

ittef default device not desired^ Also 

character length settings 
I I NOTE WELL il 

If sw<08> is set the user can only *looP 
on a test^ of the default device i^e, « 
DLll/E RCSR s 775610» If the USer 
desires to ^loop on a test* of other 
than the default device he must first 
patch the five (5) locations labeled 



e Used 

devices) 
used for 



DLRCSRf DLRDBRI DLXCSRf 
DLVECTi 



DLXDBRI 



that appear under ^DLU Definitions^ 
heading at the front of the listing^, 
ite« « with sw<08> set sw<00> is not 
functionalg 



8^0 EXECUTION TIMES 

Execution time is dependent on type of memory and 
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number of DLll^s being testedt h representative 
time for 1 error free pass isi 

ll>'40 « core memory «• I DLll/E «• 20 seconds 



9|,0 EFpOe INFORMAflON 



9^1 Error Reporting 



There are a total of seven(7) types of error 
reports generated by the program^ The key column 
hea<31ngi will be described below for clarity « 

DEVADH « This is the address of the receiver 
control status register for the falling 
DLll 

regADR « This is the address of the DLil 
register on which testing is being 
conducted 

WAS « This is What the contents of the 
register of the DLii undergoing test 
was (address is under column *{R2)^) 

S/B « This is what the contents of the 
register of the DLU undergoing test 
should be (address is under column 

wAsADR « This is what the memory address was 
(input data buffer address) 

SHbADR » This is What the memory address should 
be (output data buffer address) 

(REG) • This is the contents of th@ DLli 
receiver data buffer in error (address 
is under column ^(R2)*) 



9,2 Error Halts 



With the ^Halt on Error^ switch (SWIS) not set there ^te 
four(4) programmed *HALTS* in the programi 

a. In the case of error reporting and there is no terminal 
to allow the information transfert 

bt In the power fail routine if the power up sequence was 
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started before the power down sequence had a chance to 
complete itslefs 

In the end of pass routine if multiple device testing is 
being conducted but no devices are shown as active^ 

In the cast of sw<08> being set. 



10^0 PEPFORI^ANCE AND PROGRESS REPORTS 
Wot applicable* 



11^0 DEVICE INFORMATION TABLES 

Sa The following is a picture view of a DLll^E Receiver 
Control Status Reglstert which win show bit assignments 
and definitions? to provide a handy referencei 



HiF 



IIIIIIIIIIIIIIIII 
IDSIRIICTIC iR IS t I IR IRIlDIi IS IRTIDTJ ! 
il INGi Si Dl Al Ri 1 i DIENIENI I XiS IR 1 I 
IIIIIIIIIIIIIIIII 

IS 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 

Bit assignments are defined as followsi 

BIT15 Data Set Interrupt U Interrupt sequence 

Initiated when BIT05 set, 

2g Sets whenever bits lOi 11# 
12 or 14 change state 

3g Cleared by INIt or reading 
RCSR 



BlTl4 Ring 



BIT13 Clear to send 



BIT12 Carrier Detect 



Ig When setf indicates . a 
control signal being 
received from dataset, 

1^ When set Indicates ON 
conditioni when clear 
indicates OFF conditloht 

2t Dependent on state of 
^CTS^ signal from dataset 

%9 Sets when data carrier 
received 

2a When clear Indicates end 
of current transmission or 
an error condition* 
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BiTll Receiver Activt 



1^ When 

receiver 

active^ 
2^ Cleared by INit 

DONE CBIT07), 



set Indicates 
Interface is 



or RCVR 



) 



BlTlo Secondary Receive or 
supervisory Received 
Data 



aiT07 Receiver Done 



It Provides receive capabil* 
lty# when set? for reverse 
channel of remote station^ 
Sets When BIT03 is set,, 

2^ Cleared by INIT 

Ig Sets when character has 
been received^ wm 
initiate an interrupt 
providing B1T06 is also 
set 

2^ Cleared when RDBR is 
addressed or BITOO is set^ 

3p Also? cleared by INIT 

It When set? allows Interrupt 

providing BITO7 is sett 
2g Cleared by INIt 
3« ###READ/WRITE BIT##«- 

Ig When setf allows interrupt 

providing BITI5 is sett 
2^ Cleared by INIt 
3t -t^^READ/WRITE BIT### 

I9 Provides transmit cap« 
ability? when set^ for 
reverse channel of remote 
statlon^i sets when BITiO 
is set^ 
2« Cleared by INIT 
3e »##REIiD/WRlTE BIT### 

It Jumper ties this bit to 

REQ TO SEND in datasett 
2^ Required for transmission 
3« Cleared by INIT 
4g, ###READ/WRITE BIT### 

If When setf permits connect- 
tion to Channels, 

2^ When clear? disconnects 
interface from channel^ 

3t MUST be cleared by program 

4, ###READ/WRITE BIT##«- 

###Sp@cial Notes on RCSR Register### 

Ig Addresses should fall in the rang® of 175610 to 



8IT06 Receiver Interrupt 
Enable 



BItOS Dataset Interrupt 
Enable 



BIT03 Secondary Transmit or 

Supervisory Transmitted 
DATA 



BIT02 Request to Send 



BItOI Data Terminal 
Ready 



il 



176170 
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b. 



2s BITOl (Data terminal Ready) state is not defined 
after pow@r«'upt 

3, On DLU«C or «D options bits 15f 14| 13# I2f 10# 5i 
3f 2r and 1 are not useds, 

4^ On DLU-C and «D options bit<00> is ^RDR ens*' ^ On a 
DLIWE option tnis bit is unused^ 

The following is a picture view of a DliU«E transmitter 
control status registerf which will show bit assignments 
and definitions! to provide a handy reference! 



I 1 I 
iXRiXii 

IDYIEWI 
I I I 



I I I I 

1^ I IBR! 

I Ai IK! 

I I I I 



15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 
Bjt assignments are defined as followsi 



BIt07 Transmitter Ready 



bitOS Transmitter Interrupt 
Enable 



bIt02 Maintenance 



le Set when XDBR can accept 
another characters ^111 
initiate an interrupt if 
BIT06 also setg 
2« Also set by INIT 
3^ Cleared by loading XDBR 

It ^J^en setf allows interrupt 
providing BIT07 is set^ 

2, Cleared by INIt 

3, ###READ/WRITE BIT##» 

1« When setf disables serial 
line input to receiver ^ 
connects xmit output to 
receiver input which 
disconnects external 
device input. This forces 
receiver to run at xmitter 
speed, 

2, Cleared by INIT 

3, ###READ/WRITE BIT### 



BItOO Brealc 



le When setf transmits 
continuous space 
external device 
2^ Cleared by INIT 
3 1, ###READ/WRITE BIT*## 



a 

to 



il NOTE il 
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Olill»C and ^0 options art the same® J 

?^ The follov^lng is a picture view of the DL11*E receiver 
and transmitter data buffer reglsterSf to provide a handy 
reference^ 

IIIIIIIIIIIIIIIII 
lEPIOPirPiPEi I 1 1 I I !D lA IT tA i i } 
IIIIIIIIIIIIIIIII 

15 14 13 12 It 10 09 08 07 06 05 04 03 02 01 00 

Bit assignments are defined as followsi 

Bits ot^-OO Data it Character to be 

transferred to external 

device^ 
2b It character less than 8 

Dits it must he loaded 

right justified^ 
3t ###WPITE ONLY BITS### 

BIT 15 Error 1, ###pead only bit### 

2s Cleared by error removal 

BIT 14 Overrun 1, Same as BIT 15 

2« RCVR DONE not cleared 

Bit 13 Framing la Same as BIT 15 

2s No valid STOP bit 

Bit 12 parity l. Same as BIT 15 

28 Parity other than 
expected 

NoTEi Bits<l5sl2> only appear in the rcvr data buffer 
DLll-C and »D options are the same^ 



12«0 SUBROUTI^^E SUMMARIES 

12«i DLADDR 

This routine sets up the followingi 

RCSR * Receiver Status Register 
RBUF • Receiver Buffer Register 
XCSR « Transmitter Status Register 
XBUF « Transmitter Buffer Register 



i^ 
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The setup is done? inltialiyf In response to user reply to 
1st device he wants tested# and thereafter* at the end of a 
program pass to allow cycling thru all devices for multiple 
device testing (if required) i, 



12«2 SEOP 



This routine is supplied by maindec-11«DZQACC3* the PDP-U 
Maindec ^SYSMAC^ utility package^ This routine Is 
responsible for the followlngi 

ae Incrementing the pass number C$PASS) 

b« Typing ^ENO PASS # XXX^ (where *XXX* is a decimal value) 

WOTE 

If multiple device testing Is being 
conducted! then $PASS is only 
Incremented after testing of all devices 
has transpired (multiple testing) « 
Therefore? e^g,* If 10 devices have been 
tested then ^EMd PASS #1^ would be typed 
outi ^'F.MD PASS ^a*" would be typed out 
after the 10 devices have once again 
been tested by the program^ etc» 

c. Goes to a monitor^ If there is one 

de If there is no monitor transfers control bacic to 
beginning of the program^ 

12«1 $ScOPE 

This routine is supplied by ^AlNDEC«'U«'DZ0AC«C3f the PDP-11 
Maindec ^SYSMAC^ utility pacicage. 

This routine is entered before and after every subtest to 
ascertain the following condltlonsi 

as Loop on test just executed? 
II This condition is enabled when SW<14> is set to a ^1% 

be Loop on test If an error has occurred during the test? 
This condition is enabled when SW<09> is set to a *i^« 

Ca Loop on test specified by test nog appearing in 
SWB<7|0>? 
This condition is enabled when SW<08> is set to a ^1% 

dt Inhibit subtest iterations? 

This condition is enabled when SW<U> is set to a n% 



I2g4 $EpROR 
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This routine is supplied by MAiwDec«U^DZ0AC«e3f the PDP-11 

waindec ^SYSMAC^ utility package. 

This reutlnt handles the following reactions to an error when 
an error 1% encounteredi 

at *HALT^ on Error? 

This condition is enabled when sw<15> is set to a n\ 

bt Ring ^Bell^ on Error? 

This condition is enabled when sw<10> is set to a *1% 

c« Loop on Error 

This condition is enabled when SW<09> is set to a n% 

dt Inhibit Error Typeouts 

This condition is enabled when SW<13> is set to a ^1% 

MOTE 

On encountering an error while executing 
the prograni this routine will transfer 
control to ""lERPTYP^ routine shown below 
(presumes ^HhhT^ on error SW<15> not 

set). 



12^5 $EpRTyP 



This routine is supplied by MAXNDEC'«ll«*DZQAC«C3f the PDP^-U 
Maindte ^SYSMAC^ utility pacicaget 

This routine handles the information for error message 
typeouts as followsi 

This routine uses the ^Item Control Byte* (SITEmb) to 
determine which error is to be reported^ It then obtains^ 
from the ^error Table^ CSERPTB) the addresses of where the 
Information^ for printout? is storedi and causes the 
appropriate information concerning the error to be printed 
out« 

Notes Is The variable ^$iTEMb^ is supplied by «,SCMTAG# a 
^SYSMAC^ utility pacJcage routine^ 

2t The 1st address ^SERPTB* for location of ^error 
table^ information is also supplied by «$CMTAGt 

3» If the ^SITEMB^ value is zeroCOJi then only a 
program counter (PC) is printed out^ It has no 
labeli it is a pure number^ 
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12^6 STyPOC 



This routine is supplied by MAINDEC^t l^DZQAC^C3i th@ PDP-U 
Maindee ^S^SMAC^ utility package^ This routine is used for 
all octal typeouts (16 bit values) throughout the program^ 



12«7 STyPDS 



This routine is supplied by maindec«»11-DZ0AC'«'C3# the PDP«11 
Maindec ^SXSMAC utility package^ This routine is used to 
type a decimal value at the end of a pass of the program of 
the forw ^end PASS # XXX^ where ^XXX^ is the decimal value. 



1298 $rdchb^ $bolin^ srdoct 

These routines are supplied by MAIN0EC»ll-DZQAC«C3r the 
PDp»ll Maindec ''SYSMAC^ utility package^ Their uses are as 
f oilowsi 

89 SRDCHR « Handles a single character coming in from tne 
TTYi, The character is placed on top of the 
stack for future use,^ 

bt SRDLIN - Handles a string of characters coming in from 
the TTYg The address of the 1st character is 
placed on top of the stack for future use« 

Ct SRDOCT ^ Handles an octal number coming in from the 
SRDOEC 104420 TTY decimal # input TTY^ Low 
order bits are stored on top of the stack? high 
order bits are stored in location SHIOCT, 
$HIOCT is supplied by ^$CMTAGf a *SYSMAC^ 
package utility routine^ 



1299 STyPE 

This routine is supplied by HAlNDEC»U«DZQAC«»C3f the PDP«U 
Maindec ^SYSMAC^ utility package. This routine is used to 
type ASCII messages (which must terminate with a byte) as 
well as all other forms of typed information. The routine is 
also responsible for inserting a number of fill characters 
after a line feed, 

wotti If $NULL contains the character to be used as fill, 

2^ iriLLS contains the number of filler characters 
reg^d^ 

3a sriLLC contains the character to fill after. 
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4t The above three(3) variables are supplied by ' , ^ j 
9$CMTAG# a ^SYSnAC^ package utility routine^ 



12^10 $Tl?APf $TRPAD 



Thtse routines are supplied by MAIWDEC«tl«^DZQAC"C3i the 
PDp«ll Malndee ^SYSMAC* utility package^ The ^$THAP^ routine 
win strip off the lower byte of a trap instruction and use 
it to index thru the trap table ($TRPAP) for the starting 
adaress of the desired routine. Then using the address 
obtained it 5^111 then transfer program control to that 
routine^ 

The following table defines all routines in the prograin 
called by a *TRAP* instruction by showing their ^thap^ 
eguivalences ^ 

$TyPE 104400 TTY typeout routine 

STYPOC 104402 Type octal » (with leading zeros) 

STyPOS 104404 Type octal # Cno leading zeros) 

$TYPON 104406 Type octal # (per last character fuethod) 

STyPDS 104410 Type decimal # (with sign) 

SRDCHR 104412 TTY Character input 

SROLIN 104414 TTY String Input 

SRDOCT 104416 TTY octal # input 



12«11 $PWRDN| SPWRUP 



These routines are supplied by MAINDEC««ll«DZQAC«C3f the 
pDp«11 Maindec ^SYSMAC^ utility package^ These routines 
handle the *Power Down and Up* sequence^ The prograifi may be 
DOwer failed when runnlngi however^ use caution in turning 
power off/on while the power fail message is being typed « it 
may cause stack overflow^ 

NOTE 

When power returns the program will 
automatically start itself over at the 
beginning^ 



12«12 XiNTf RINT 



XINT ^ This is the transmitter Interrupt service routine 
for 256(10) byte block transferSt 

RInT ® This is the receiver interrupt service routine for 
256(10) byte block transferSg 
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) 



12^13 mihYf STALLS DATCHK. TIMEPX, TlMETX 

These routines are all used toy programs 2i 3jr 4 and 5t 
Programs 2 through 5 are the ^'SpeclaX^ user Interaction 
routines which will be defined later in this document. The 
above routine uses are as follows? 

at DELAY ^ This routine is used by all the utility programs 
to wait a no, of milliseconds between character 
transfers as specified by the user, 

bn STALL « This routine is used by program #4 and will 
allow a random no^ of milliseconds to transpire 
before a transmission of a character^ This 
routine is activated based on user responses 



c, DATCHK » This routine is used by program #4 and will 

checK for correct expected and received data 

after character transmission as well as any 
error bit conditions^ 

d^ TIMERX f TlMETX « 

These two(2) routines are used by program #4 to 
verify the ^DONe^ bit after both transmitter and 
receiver operationSt 



12al4 SUERPlf SUER2 

These twe(2) routines are used throughout the program to set 
up the error information for *Error Peporting* before the 
*Error Report* call is made? *Error Peport^ calls appear 
throughout the program in the form "EPPOP 4- XX" where ^XX* 
indicates the particular error table (EPPTSi) entry used by 
the Error Service Routine^ 



12^15 PPlME 

This routine is used to set up the data buffers an the device 
under test for each 256(10) byte block transfers 



12^16 CLDLBF 

This routine is used in conjunction with routine ^PRIME^ 
clear input and output buffers before data transfers^ 



to 
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LDoUTli LD0UT2f LDOUTSi LD0UT4 
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The routinti are all used for set m awi loading purposes as 

fOllOWif 

dt LDOUTl ^ is called to set up tn® *null«del««nuil«' pattern 
ba LD0UT2 ^ is called to load an ascending binary count 

pattern 
Ct IjOOUT3 ^ is called to load a descending binary count 

pattern 
d^ LD0UT4 « Is called to load a complementing worse case 

pattern 



12,18 CHkDAT 



This routine li used to. checic for data compare errors in 
256(10) byte block transferSt 



12^19 BUSEPR# RSVERR 



These two(2) routines are used to service ^Unexpected* bus 
error and reserved instruction trapsi respectively^ 



12^20 TPpCOM 



This routine is used to set up and report the information 
concerning ^Unexpected^ ous error and reserved instruction 
trapSe This routine is used in conjunction with routines 
^BtlSERR/ and ^RSVERR^ described above« 



13,0 MISCELLANEOUS 

at The stack pointer is initially set to lioo^ 
bg The parity bit is not covered^ 

14^0 USER SELECTION PROGRAMS 

14^1 Program #2 Description 

This utility program will allow the followlngi 

a^ Selection of transmitter data buffer 

bt Selection of a character for continuous transfer 



i 
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Ct Seltctlon of an expiration time In milliseconds between 
each trans??)itter data buffer character transfer 

dg A tight scope loop Iocn: on a specific character 

The prograin relies on user response (via TTY) to specific 
questions as described belo^i 

as What is tne transmitter data buffer address? 

The user should respond by typing an address in the range 
175616 to 176176 and follow it with a ^carriage return*' 
at Which time the program will validate what was typed to 

see if » 

le The value typed is within the correct range 

28 The value typed is an ^even* address# so as not to 
cause a ^Bus timeout'' when referenced^ and 

3^ Then checlcs to see if the device associated with the 
value typed is indeed present 

^OTE 

If either of the threeO) above 
conditions are not met the program win 
type a question mark: (?)# reiterate the 
initial questionf and wait for a ^new^ 
user response^ 

bt i^hat is the character to be transmitted Coctal ASCII 
e^gai AsioD? 

The user should respond by typing an octal ASCII value? 
for the character desired and follow it with a ^carriage 
return'' ^ 

Cs i/«ihat is the desired msec^ delay (octal e^g^^ 10a8(10))? 

The user should respond by typing an octal value for the 
dtilred nOt of mseci delay and follow it with a 
^carriage return^^t 

EgG^ « If user desired i6 mseCe delay between each 
.character transfer he should type ^20*9 

de At this point the prograii will loop continuously sending 
the character specif led^ with the desired ffisec» delay 
between each character transmission^ 



14,2 



Program #3 Description 



) 
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This utility program will allow the followlngi J 

at Selection of TRANSMITTER data buffer 

b^ Stlection of a character for continuous transfer 
IN MAINTENANCE MODE, 

Cs Sflectlon of an expiration time in ff^illiseconds between 
each TRANSMITTER data buffer character transfer 

dt A tight scop® loop lock on a specific character 

The program relies on user response (via TTY) to specific 
questions as described belowi 

a« What is the TRAMSMITTEP data buffer address? 

The user should respond by typing an address in the range 

175616 to 176176 and follow it with a ^carriage return^ \ 

at which tiro® the program will validate what was typed to 

see If « 

Ig The value typed is witnin the correct range 

2t The value typed is an ^even^ address^ so as not to 
cause a *Bus timeout^ when referenced^ and 

Is Then checics to see if the device associated with the 
value typed is indeed present 

NOTE 

If either of the three(3) above 
conditions are not met the program win 
type a question mark (?)# reiterate the 
initial question^ and wait for a ^new^ 
user response® 

be What is the character to be transmitted (octal ASCII 

e,g«i Asion? } 

The user should respond by typing an octal ASCII value^ 
for the character desired and follow it with a ^carriage 
return*, 

Cs What is the desired msec, delay (octal etgt# 10»8(10))? 

The user should respond by typing an octal value for the 
desired no^ of msect delay and follow it with a 
^carriage return^t 

EtGt « If user desired 16 mseCt delay between each 
character transfer he should type ^20% 

dt At this point the program will loop continuously sending 
the character speciliedi with the desired msect delay 



) 
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between each character transmission^ 

14g3 Program #4 Description 

This utility proaram will allow the followlngi 

a^ Selection of a transn^ltter data buffer 

be Selection of a single character to be senti. received and 
checked with maintenance bit set^ 

The program relies on user response (via TT¥) to specific 
questions as described belowi 

a» What is the transmitter data buffer address? 

The user should respond by typing an address in the range 
175616 to 176176 and follow it with a ^carriage return* 
at Which time the program will validate what was typed to 

see If «* 

1» The value typed is within the correct range 

2^ The value tyoed is an ''even'^ address* so as not to 
cause a *Bus timeout^ when referenced? and 

3s Then checks to see if the device associated with the 
value typed is indeed present^ 

NOTE 

If either of the three(3) above 
conditions are not met the program will 
type a question mark C?)f reiterate the 
initial question^ and wait for a ^new^ 
user rtsponstg, 

b» Is a random wait time (msec^) desired 1/Osyes/no? 

The user should respond as asked and follow it with a 
^carriage returnee 

c« What is the character to be transmitted (octal ASCII e^g^ 

AsslOD? 

The user should respond by typing an octal ASCII value^ 
for the character desired and follow it with a ^carriage 
return*' » 

dg At this point the program will loop continuously sending 
the character speclfiedf with a random msec» delay 
between each character transmlssiont Between each 
transmisslonf ^RCVB* ^ ^xmitter^ done bits will be 
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verifledf as well a§ checks for correct data and any 
error bit conditions^ 

NOTE 

If user response to Item b^ (directly 
above) ifas a /O^ or a plain ^'carriage 
return* then there is no delay between 
character transmissions « 



14«4 Program #5 Description 

This utility prograiti will allow user parameters for running a 
binary count in flt^aintenance modeg 

The prograr!^ relies on user response (¥ia TTY) to specific 
questions as described belo^i 

at ^hat is the transmitter data buffer address? 

The user should respond by typing an address in the range 
175616 to 176176 and follow it with a /carriage return^ 
at which time the prograti will validate what was typed to 

see if » 

le The value typed is within the correct range 

2g The value typed is an ^even^ address^ so as not to 
cause a *Bus timeout* when referenced^ and 

39 Then checlcs to see if the device associated with the 
value typed is indeed present^ 

^fOTE 

If either of the threeCI) above 
conditions are not met the program will 
type a question mark: (?)# reiterate the 
initial question^ ani wait for a ^new^ 
user response^ 

bt Is a random wait time (msece) itsirtd l/Osyes/no? 

The user should respond as asked an^ follow it with a 
^carriage return^^ 

Ci At this point the program will loop continuously sending 
binary characters? with a random roseCt delay between 
each Character transmission^, Between each transmission? 
*'RCVR* I. ^XMlTTER^ done bits Will be verified, as well as 
checlcs for correct data and any error bit conditions^ 

NOTE 
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If user response to Itewi B, (directly 
above) was a ^0* or a plain ^carriage 
return^ then there Is no delay between 
character transmisslonst 



15t0 PROGRAM FUWCTIONAL FLOW CHAHTS 



16«0 PPDGRAM LISTING 
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9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
?3 
24 
25 
26 
27 
28 
29 
30 
3! 
32 
33 
34 
35 
36 
37 
38 
39 
40 



51 
52 
53 
54 
55 
56 



000174 
000174 OOOOOO 
000176 OOOOOO 

onojOO 000137 001446 

000204 000137 006344 

000210 000137 006604 

0O0214 000137 007054 

000270 000137 007446 

000052 
00U052 OOOOOO 



.NLIST CND,MD,MC 
.LIST ME,SEO,BIN 
$SWPal67400 
.ENABLE ABS 

.TITLE MAINDEC-U-DEDLC-B 

J*C0PYP1GHT (C) 1977 

|*OIGITAL EQUIPMENT CORP, 

)*MAYNAPD, MASS, 01754 

f» 

j»PPOGkAM BY E, CPOWLEY/B, BUPGESS 

;» 

>*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAI^DEC SYSMAC 
;»PACKAGE (MAINDEC- 1 1-DZQAC-C3) # JAN 19, 1977, 



.SBTTL OPERATIONAL SWITCH SETTINGS 



15 


HALT ON ERROR 


14 


LOOP ON TEST 


13 


INHIBIT ERROR TYPEOUTS 


12 


/C OR /D MODEL 


11 


INHIBIT ITERATIONS 


10 


BELL ON ERROR 


q 


LOOP ON ERROR 


e 


LOOP ON TEST IN SWR<7;0> 



CREATION OF DEVICE/S TABLE 
OP CHANGE CHARACTER LENGTH 



.SBTTL TRAP CATCHER 



. = 



j*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2fHALT" 
^♦SEQUENCE TO CATCH ILLEGAL TRAPS ANfi INTERRUPTS 
l*LOCATION CONTAINS TO CATCH I^PHOPERF.Y LOADED VECTORS 

, = 174 
DISPREG: .WORD jjSDFTWARE DISPLAY REGISTER 

SWREGj .WORD ;jSOFTWAPE SWITCH REGISTER 

.SBTTL STARTING ADDRESS(ES) 

JMP P#BEGIN J J JUMP TO STARTING ADDRESS OF PROGRAM 
JMp ei»PRG2 ;JUMF TO USER PROGRAM NO. 2 

JMP 9IPRG3 ;JUMP TO USER PROGRAM NO. 3 

JMp §#PPG4 jJUN-P TO USER PROGRAM NO. 4 

JMp PSPRGS ;JUMF TO USER PROGRAM nD. 5 



,=52 

.WORD 



J INFORMATION LOCATION FOR ACTU 

jMO POWER FAIL REQUIRED <BIT15=0> 

lis NOT MEK.OPY SIZE DEPENDENT <B1T14 = 0> 

lis SUITABLE FOR AUTOMATIC OPERATION <BIT13sO> 
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57 




58 




59 




60 


1 1 


61 




62 




63 




64 




65 


000011 


66 


000012 


67 


oaoois 


68 


000200 


6^ 


177776 


70 




71 


177774 


72 


177772 


73 


177570 


74 


177570 


75 




76 




77 


OOOOOO 


7fl 


000001 


79 


000002 


80 


000003 


fil 


000004 


82 


000005 


83 


000006 


84 


000007 


R5 


000006 


86 


000007 


87 




88 




89 


OOOOOO 


90 


000040 


91 


000100 


92 


000140 


93 


000200 


94 


000240 


95 


000300 


96 


000340 


97 




98 




99 


100000 


100 


040000 


101 


020000 


102 


010000 


103 


004000 


104 


002000 


105 


001000 


106 


000400 


107 


000200 


108 


000100 


109 


000040 


110 


000020 


111 


OOOOIO 


112 


000004 



.SBTTL BASIC DEFINITIONS 

j*INITIAL ADDRESS OF THE STACK POINTER »#* 1100 «*» 
STACKS 1100 

.EOUIV EMT, ERROR nBASIC DEFINITION OF ERROR CALL 

.EQUIV lOTf SCOPE ffBASIC DEFINITION OF SCOPE CALL 



jtMISCELLANF.OUS DEFINITIONS 



HT= 

LF= 

CRc 

CRLFa 

pSs 

.EQUIV 

STKLMTs 

PiRQs 

DSWRa 

DOISPa 



11 

12 

15 

200 

177776 

PS,PSW 

177774 

177772 

177570 

177570 



If CODE FOR HORIZONTAL TAB 

llCODE FOR LINE FEED 

llCODE FOR CARRIAGE RETURN 

IfCODE FOR CARRIAGE RETURN-LINE FEED 

IIPROCESSOR STATUS WORD 

llSTACK LIMIT REGISTER 
llPROGRAM INTERRUPT REQUEST REGISTER 
llHARDWARE SWITCH REGISTER 
llHARDWARE DISPLAY REGISTER 



|*GENERAL PURPOSE REGISTER DEFINITIONS 



ROa 
Rl = 
R2 = 
R3a 
R4a 
R5a 
R6a 
R73 
SPa 
PCa 



%0 
%1 
%2 
%3 
%4 
%5 
%6 
%7 
%6 
%7 



llGENERAL REGISTER 

llGENERAL REGISTER 

llGENERAL REGISTER 

llGENERAL REGISTER 

llGENERAL REGISTER 

llGENERAL REGISTER 

llGENERAL REGISTER 

llGENERAL REGISTER 
llSTACK POINTER 

llPROGRAM COUNTER 



|<*PRIORITY LEVEL DEFINITIONS 



PROa 
PR13 
PR2s 
PR3 = 
pR4a 
PR5a 
PR6S 
PR7 = 





40 

100 

140 

200 

240 

300 

340 



llPRIORITY LEVEL 

llPRIORITY LEVEL 1 

llPRIORITY LEVEL 2 

llPRIORITY LEVEL 3 

llPRIORITY LEVEL 4 

llPRIORITY LEVEL 5 

llPRIORITY LEVEL 6 

llPRIORITY LEVEL 7 



l#"SWITCH REGISTER" SWITCH DEFINITIONS 

SW153 100000 

SW14S 40000 

SW13a 20000 

SW12a 10000 

SWlla 4000 

SWlOa 2000 

SW09S 1000 

SWOBa 400 

SW07a 200 

SW06a 100 

SW05S 40 

SW04a 20 

SW03a 10 

SW02S 4 
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113 


000002 


114 


000001 


115 




116 




117 




118 




119 




120 




121 




122 




123 




124 




125 




126 




127 


100000 


128 


040000 


129 


020000 


130 


010000 


131 


004000 


132 


002000 


133 


001000 


134 


000400 


135 


000200 


136 


000100 


137 


000040 


138 


000020 


139 


000010 


140 


000004 


141 


000002 


142 


OOOnoi 


143 




144 




145 




146 




147 




148 




149 




150 




151 




152 




153 




154 




155 


000004 


156 


000010 


157 


000014 


158 


000014 


159 


000014 


160 


000020 


161 


000024 


162 


000030 


163 


000034 


164 


000060 


165 


000064 


166 


000240 


167 





SWOls 


2 




SlNOOa 


1 




,EQUIV 


SW09#SW9 




.EQUIV 


SW08,SW8 




.EQUIV 


SW07,SW7 




,EQUIV 


SW06,SW6 




.EQUIV 


SW05#SW5 




.EQUIV 


SW04»SW4 




.EQUIV 


SW03,SW3 




.EQUIV 


SW02,SW2 




.EQUIV 


SWOlrSWl 




, EQUIV 


SWOOfSWO 




>»DATA 


BIT DEFINITIONS 


(B 


BITlSa 


100000 




BIT14S 


40000 




BIT13S 


20000 




BtT12s 


10000 




BiTlls 


4000 




BITlOa 


2000 




BIT09= 


1000 




BIT08S 


400 




BIT07a 


200 




BIT06B 


100 




BiTOSa 


40 




BIT04a 


20 




BIT03B 


10 




BIT02S 


4 




BITOla 


2 




BITOOa 


1 




.EOUIV 


BIT09#BIT9 




.EQUIV 


BIT08,8XT8 




.EQUIV 


BIT07,BtT7 




.EOUIV 


BIT06»BIT6 




.EOUIV 


BIT05,BIT5 




.EQUIV 


BIT04,BIT4 




.EOUIV 


BIT03,BIT3 




.EQUIV 


BIT02,BIT2 




.EQUIV 


BIT01,BIT1 




.EQUIV 


BIT00,BIT0 




>*BASIC 


"CPU" TRAP VECT 


OR 


ERRVECs 


4 




pESVECs 


10 




TBITVEC 


al4 




TPTVECs 


14 




BPTVECa 


14 




lOTVECa 


20 




P^RVECa 


24 




EMIVECa 


30 




TPAPVEC 


= 34 




TKVECa 


60 




TPVFCa 


64 




PIRQVEC 


= 240 





jTIME OUT AMD DTHtR ERRORS 

jRESFRVED AND ILLEGAL INSTPUCTIONS 

f^T" BIT 

iTPACE TRAP 

jBREAKPOINT TRAP (BPT) 

jIMPUT/OUTPUT TRAP (lUT) »»SCUPE** 

iPOViER FAIL 

llEHlILATOR TRAP (EMT) *»ePBOR*« 

f''TRAP" TRAP 

fTTY KEYBOARD VECTOR 

jTTY PRINTER VECTOR 

f PROGRAM INTERRUPT REQUEST VECTOR 
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168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 



.SBTTL COMMON TAGS 

J*THIS TABLE CONTAINS VARIOUJ 
l»USED IN THE PROGRAM, 



001100 
OOllOO 
001102 
001103 
001104 
001106 
001110 
001 112 
001114 
001115 
001116 
001120 
001122 
001124 
001126 
001130 
001132 
001134 
001135 
001136 
001140 
001142 
001144 
001146 
OOUSO 
001152 
001154 
001155 
001156 
001157 
001160 

001162 
001164 
001166 
001170 
001172 
001174 
001176 
001200 
001202 
001204 
001206 
001210 
001212 
001214 
001216 
001220 
001222 



001100 

000000 

000 

000 

000000 

000000 

000000 

000000 

000 

001 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000 

000 

000000 

177570 

177570 

177560 

177562 

177564 

177566 

000 

002 

012 

000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



SCMTAGI 








SPASSI 


.WORD 







$TSTNM! 


.BYTE 







SERFLGi 


.BYTE 







SICNTI 


.WORD 







SLPADRI 


.WORD 







SLPERR! 


.WORD 







$ERTTL| 


.WORD 







SITEMBI 


.BYTE 







SERMAXI 


.BYTE 


1 




SERPPCl 


.WORD 







SGDADRJ 


.WORD 







SBDADRl 


.WORD 







$GDDAT| 


.WORD 







SBDDATI 


.WORD 









.WORD 





_, ; 




.WORD 







SAUTOBi 


.BYTE 







SINTAGI 


.BYTE 









.WORD 







SWRI 


.WORD 


DSWR 




DISPLAYS 


.WORD 


DDISP 




$TKSt 


177560 






STKBf 


177562 






$TPSl 


177564 






STPBl 


177566 






$NULLt 


.BYTE 







SFILLSt 


.BYTE 


2 




$FILLCi 


.BYTE 


12 




ITPFLGI 


.BYTE 







SREGADi 


.WORD 







SBEGOl 


.WORD 







SREGlt 


.WORD 


. 




$REG2l 


.WORD 







$PEG3| 


.WORD 







SREG4I 


.WORD 







$REG5l 


.WORD 







$REG6l 


.WORD 







$REG7i 


.WORD 







$TMPOl 


.WORD 







STMPll 


.WORD 







$TMP2l 


.WORD 







STMP3I 


.WORD 







$TMP4l 


.WORD 







8TMP5I 


.WORD 







8TMP6I 


.WORD 







STMP7I 


.WORD 







8TMP10I 


.WORD 








COMMON STORAGE LOCATlO/vS 



jI START OF COMMON TAGS 

ICOnTAINS PASS COUNT 

jCOnTAINS the TEST NUMBER 

jCOnTAInS ERROR FLAG 

jCONTAINS SUBTEST JTERATIUN COUNT 

jCONTAINS SCOPE LOOP ADDRESS 

fCONTAINS SCOPE RETURN FOP ERRORS 

jCONTAINS TOTAL ERRORS DETECTED 

jCONTAINS ITEM CONTROL BYTE 

^CONTAINS MAX, ERRORS PER TEST 

iCONTAINS PC OF LAST ERROR INSTRUCTION 

jCONTAINS ADDRESS OF 'GOOD' DATA 

jCONTAINS ADDRESS OF 'BAD' DATA 

jCONTAINS 'GOOD' DATA 

jCONTAINS 'BAD' DATA 
JRESERVED--NOT TO BE USED 

jAUTOMATIC MODE INDICATOR 
jINTFRPUPT MODE INDICATOR 

jADDRESS OF SWITCH REGISTER 

jADDRESS OF DISPLAY REGISTER 

jTTY KBD STATUS 

jTTY KBD BUFFER 

jTTY PRINTER STATUS REG, ADDRESS 

jTTY PRINTER BUFFER REG, ADDRESS 

jCONTAINS NULL CHARACTER FOR FILLS 

jCONTAINS # OF FILLER CHARACTERS REQUIRED 

jINSERT FILL CHARS, AFTER A "LINE FEED" 

j"TERMINAL AVAILABLE" FLAG (B1T<07>=0=YES) 

jCONTAINS THE ADDRESS FROM 

jWHICH (SREGO) WAS OBTAINED 

jCONTAINS (($REGAD)+0) 

jCONTAINS (($REGAD)4-2) 

jCONTAINS (($REGADU4) 

jCONTAINS (($REGAD)+6) 

jCONTAINS t($REGAD)+10) 

jCONTAINS ( ($REGAD)+1 2) 

jCONTAINS ( (SREGAD)+14) 

jCONTAINS ( C8REGAD)+16) 

jUSER DEFINED 

jUSER DEFINED 

jUSER DEFINED 

jUSEP DEFINED 

jUSER DEFINED 

jUSER DEFINED 

jUSEP DEFINED 

J USER DEFINED 

jUSER DEFINED 
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224 


001224 


000000 


225 


001226 


000000 


226 


001230 


000000 


227 


001232 


000000 


228 


001234 


000000 


229 


001236 


oooooo 


230 


001240 


000000 


231 


001242 


oooooo 


232 


001244 


oooooo 


233 


001246 


177607 000377 


234 


001252 


077 


235 


001253 


015 


236 


001254 


000012 


237 






238 






239 






240 






241 






242 


001256 


OOOOOO 


243 






244 






245 






246 


001260 


oooono 


247 






248 


001262 


OOOOOO 


249 






250 






251 






252 


001264 


oooooo 


253 






254 






255 


001266 


OOOOOO 


256 






257 






258 






259 


001270 


oooooo 


260 






261 






262 


001272 


OOOOOO 


263 






264 






265 






266 


001274 


oooooo 


267 






268 






269 






270 






271 






272 






273 


001276 


OOOOOO 


274 






275 






276 






27 7 






278 


001 300 


oooooo 


279 







STMPlli ,WOPD 





STMP12I .WORD 





STMPUl ,VyOBD 





$TMP14| .WORD 





$TMP15l .WORD 





STMP16I .WORD 





$TMPi7l .WORD 





STIMESi 




SESCAPEtO 




$ BELLI .ASCIZ 


<207><377><377> 


SQUESI .ASCII 


/?/ 


$CRLF| .ASCII 


<15> 


$LFt .ASCIZ 


<12> 



J ;»«»«#« »««»#«»«««»»tf«#«»4^##4^4»it«» 



lUSER DEFINED 

»USER DEFINED 

jUSER DEFINED 

I USER DEFINED 

JUSEP DEFINED 

jUSER DEFINED 

J USER DEFINED 

jMAX, NUMBER OF ITERATIONS 

lESCAPE ON ERROR ADDRESS 

jCODE FOR 8£LL 

JQUESTION MARK 

^CARRIAGE RETURN 

jLINE FEED 



fTHE FOLLOWING TAGCS) ARE USER SUPPLIED BY CALLING THE MACRO 
j'MORETAGS' AS ONE OF THE ARGUMENTS TO THE S^SMAC ROUTINE .SCMTAG 



TABFLG: .i^ORD 

DLBASE: .WORD 

KEEPADj .WORD 

BASEADDj .WORD 

KEEPIVS .WORD 

BASEIVl .WORD 

MULTDj .WORD 

ACTREGJ .WORD 

ROTADDl .WORD 

LASTADDi .WORD 



jAN INDICATOR TO SHOW THAT THE 

J INFORMATION FOP MULTIPLE DEVICE 

^TESTING HAS ALHEADi' TRANSPIRED 

;& 'MAINDEC NA^E HAS BEEN PRINTED 

jSTORAGE S, WORKING LOCATION FOR A DEVICE 

^RECEIVER STATUS REGISTER ADDRESS 

! STORAGE LOCATION FOR THE 1ST 

.•DEVICE RCSR FROM WHICH 

;'BASEADD' IS RESTORED AT THE 

;END OF A COMPLETE PROGRAM PASS, 

.•STORAGE LOCATION WHICH HOLDS 

;THF RCSR ADDRESS OF THE 'NEXT' 

.'DEVICE DURING MULTIPLE TESTING 

jSTORAGE LOCATION FOR THE 1ST 

{DEVICE RECEIVER VECTOR FROM 

.•WHICH '8ASE1V' IS RESTORED AT THE 

.•END OF A COMPLETE PROGRAM PASS 

^STORAGE LOCATION WHICH HOLDS 

jTHFJ VECTOR ADDRESS OF THE 'NEXT' 

{DEVICE DURING MULTIPLE TESTING * 

jFLAG TO INDICATE Ttt 'END OF PASS' 

{ROUTINE THAT MULTIPLE DEVICE 

.•TESTING IS BEING CONDUCTED 

;0=NO, 1=YES 

{THIS IS THE DEVICE ACTIVE REGISTER 

{A BIT IS SET (STARTING AT 

{BITO)FOR EACH CONTIGUOUS DEVICE 

{(A MAX. OF 16) THAT IS TO UNDERGO 

{TESTING, THIS LOCATIO^^ IS 

{AUTOMATICALLY FILLED BASED ON 

{USER RESPONSE TO PROGRAM QUESTIONS 

{A ROTATING POINTER 10 SIGNAL 

{THE LAST DEVICE ItSTED (IF 

{MULTIPLE DEVICE TESTING WAS BEING 

{DOME) IF LESS IriAN A FULL COMPLE- 

{MENT OF DEVICES (16) WAS SELECTED 

{STORAGE LOCATION FOR THE 

{RCSR ADDRESS OF THfe LAST DEVICE 
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IIP' 



280 
281 
262 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 



001102 OOOOOO 
OOJ304 OOOOOO 



001106 177740 



DLPPi! .WORD 
LESSIJ .WORD 



STLMSKi 177740 



TESTED (IF MULTIPLE DEVICE 
TESTING WAS SELECTED BY USER) 
STORAGE LOCATION FOR THE DEVICE 
INTERRUPT PRIORITY LEVEL 
THE PRIORITY LEVEL THE CPU 
MUST BE AT TO ALLOW DEVICE INTERRUPTS. 
THIS WILL BE 1 LEVEL LESS THAN 
THE DEVICE LEVEL (BASED OH & 
CALCULATED FROM USER RESPONSE TO 
DEVICE PRIORITY LEVEL QUESTION) 
THIS MASK IS USED »Y THE 'STALL' 
ROUTINE WHICH WAITS A RANDOM NO, 
OF MILLISECONDS. ITS' USE PREVENTS 
A STALL > 37 MSEC. THIS LOCATION 
HOWEVER, CAN BE PATCHED BY THE 
USER TO ALLOW LARGER 'STALLS', 



{END OF USER SUPPLIED TAG(S) 
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299 






300 






301 






302 






303 






304 






305 






306 






307 






308 






309 






310 






311 






312 


001310 




313 






314 






315 






316 


001310 


015146 


317 


001312 


015215 


318 


001314 


015274 


319 


OOI3I6 


000000 


320 






321 






322 






323 


001320 


015312 


324 


001322 


015336 


325 


001324 


015434 


326 


00132*^ 


000000 


327 






328 






329 






330 


OOI33O 


015456 


331 


001332 


015506 


332 


001334 


015604 


333 


001336 


000000 


334 






335 






336 






337 


001340 


015626 


338 


001342 


015700 


339 


001344 


015736 


340 


001346 


000000 


341 






342 






343 






344 


001 350 


015750 


345 


001352 


016025 


346 


001354 


016114 


347 


001356 


000000 


348 






349 






350 






351 


OOI36O 


015146 


352 


001362 


U16134 


35? 


001364 


016174 



,SBTTL ERROR POINTER TABLE 

j*THIS TABLE CONTAINS THE INFOR^iATION FOR EACH EKROH THAT CAN OCCUR. 

|»THE INFORMATION IS OBTAINED BY USING THE INDEX NU^BKH FOUND IN 

j*LOCATION SITEMB, THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PfcRTlMENT, 

»*NOTEll IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC), 

f*N0TE2l EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



'■) 



,4» 



EM 
DH 
DT 
DF 



I > POINTS TO THE ERROR HESShQE 

nPOINTS TO THE DATA HEADFR 

llPOINTS TO THE DATA 

JIPOINTS TO THE DATA FORMAT 



fERROR TABLE ITEM FOR ERROR MESSAGE I 



EMI 
DHl 
DTI 




J"DL11 REGISTER REFERENCE CAUSED TIMEOUT" 
I" (PC) (PS) (SP) TEST DEVADP REGADR 
J (R7) (PSW) (R6) (RO) (Rl) CR2) 
fPRINT ALL OCTAL 



{ERROR TABLE ITEM FOR ERROR MESSAGE 2 



EM2 
DH2 
DT2 




>" DLU REGISTER ERROR " 
)" (PC) (PS) (SP) TEST 
>" (R7) (PSW) (R6) (RO) 
IPRINT ALL OCTAL 



D£\/ADH REGADR wAS S/ 
(Rl) (R2) (R3) (H4) 



fERROR TABLE ITEM FOR ERROR MESSAGE 3 



EM3 
DH3 
DT3 




>" DLll DATA COMPARE ERROR ' 
r" (PC) (PS) (SP) TEST '. 
I" (R7) (PSW) (R6) (RO) 
fPRINT ALL OCTAL 



ASADR 
(Rl) 



SHHADR WAi> S/B 
(R2) (R3) (R4) 



{ERROR TABLE ITEM FOR ERROR MESSAGE 4 



EM4 
DH4 
DT4 




f" UNEXPECTED TRAP TO VECTOR AT LnCATION XXX 
I" (PC) (PS) (SP) TEST •' 
I" (R7) (PSW) (R6) (RO) " 
{PRINT ALL OCTAL 



{ERROR TABLE ITEM FOR ERROR MESSAGE 5 



EM5 
DH5 
DT5 



DLll SOFT ERROR ( PAHITV , FRAMING, OR OtfERPUN) 
(PC) (PS) (SP) TEST ntVADH REGADR (REG) 
(R7) (PSW) (R6) (RO) (Rl) (R2) (H3) " 



{ERROR TABLE ITEM FOR ERROR MESSAGE 6 



EMI 
DH6 
DT6 



{"DLll REGISTER REFKRENCE CAUSED TIMtOUT" 
{" (PC) (PS) (SP) REGADR" 
{ SERRPC, STMP0,SR£G6,SREG2 
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354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 



001366 000000 



00)370 015750 

001372 016206 

001374 016246 

001376 000000 



OOI4OO 015456 

001402 016260 

001404 016326 

001406 000000 



{PRINT ALL OCTAL 

(ERROR TABLE ITEM FOR ERROR MESSAGE 7 



001410 
001412 
001414 
001416 
001420 
001422 
001424 
001426 
001430 
001432 
001434 
001436 
001440 
001442 
001444 



175610 
175612 
175614 
175616 
000300 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



001446 000240 



001450 
001454 
001456 
001462 
001464 

001470 
001476 
OOI5O4 
OOI5I2 
OOI520 
001526 
OOI534 
001542 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 



EMS 
DH7 
DT7 




{" DLtl SOFT ERROR ( PARITY, FRAM ING, OR OVERRU-O 
{" (PC) DEVADR REGADR (REG)" 
I SERRPC, SREGl , $REG2, $REG3 
{PRINT AL'L OCTAL 



{ERROR TABLE ITEM FOR ERROR MESSAGE 10 



EM3 
DHIO 
DTIO 




{" DLll DATA COMPARE ERROR " 
{" (PC) DEVADR REGADR (REG) S/B" 
{ SERRPC, S REG 1,SREG2,$PEG3,$HEG4 
{PRINT ALL OCTAL 



{ {»»#«»««»«*»»##»#»#**«*#»» 

{DLU DEFINITIONS 
{ {«#«««»«»««««»«*«»«#»«#'»««««« 



DLRCSRi 


175610 


DLRDBRI 


175612 


DLXCSRI 


175614 


DLXDBRI 


175616 


DLVECTI 


300 


XFLGOi 





RFLGOl 





BFLGll 





RTPYl 





OPTRl 





IPTRI 





LDOUTI 





TIMRli 





TIMP2I 





INTFLGi 






{CONTAINS ADDRESS OF PCVR CSR 

{CONTAINS ADDRESS OF RCVR DPR 

{CONTAINS ADDRESS OF XMIT CSR 

{CONTAINS ADDRESS OF XMIT DBR 

{CONTAINS VECTOR ADDRESS OF CURRENT DLU 

{FLAG FOP HARD XMIT ERRORS 

{FLAG FOR HARD PCVR ERRORS 

{FLAG FOR SOFT RCVR ERRORS 
{COUNTS NO, OF RETRIES ON SOFT ERRORS 

{CONTAINS POINTER TO OUTPUT BUFFER 

{CONTAINS POINTER TO INPUT BUFFER 

{CONTAINS POINTER TO LOAD BUFFER RUUTlNt 
{TIMERS FOR 256, BYTE BLOCK TRANSFERS 

{SOFTWARE INTR, FLAG 



oouoo 

001140 

oouoo 

010476 
000340 
010746 
000340 
013066 
000340 
013146 
000340 



BEGINl NOP 

,SBTTL INITIALIZ5 THE COMMON TA 

{{CLEAR THE COMMON TAGS CSCMTAG) 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 



MOV 
CLR 
CMP 
BNE 
MOV 
{INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



»8CMTAG,R6 
(R6) + 

»SWR,R6 {{DONE? 
.-6 

»STACK,SP 
FEW VECTORS 
#SSCOPE,i«IOTVEC 
#340,i#IOTVEC+2 
#$ERROR,g»EMTVEC 
#340,9#EMTVEC+2 
«STRAP,9iTPAPVEC 
#340,##TBAPVEC+2 
#$PWRDN|@#PWRVEC 
#340,e#PWPVEC+2 



{PROGRAM WILL START HERE 
GS 

AREA 
{{FIRST LOCATION TO BE CLEARED 
{{CLEAR MEMORY LOCATION 

{{LOOP BACK IF NO 
{{SETUP THE STACK POINTER 

{{lOT VECTOR FOB SCOPE ROUTINE 
{{LEVEL 7 

{{EMT VECTOR FOR ERROR ROUTINE 
{{LEVEL 7 

{{TRAP VECTOR FOR TRAP CALLS 
{LEVEL 7 

{{POWER FAILURE VECTOR 
{{LEVEL 7 
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410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
419 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 



001550 
001554 
001560 
001566 
001574 



001602 
001606 
001614 
001622 
001630 
001636 

001640 
001642 
001646 
001650 
001656 
001664 



005067 
005067 
112767 



001674 
001700 



001714 
001722 



001724 
001730 
001734 
001736 



005067 
012767 



177466 
177464 
OOOOOl 



012767 001566 
012767 001574 



013746 
012737 
012767 
012767 
022777 
001012 

000403 
012716 
000002 
012767 
012767 
012637 



000004 
001642 
177570 
177570 
177777 



000176 
000174 
000004 



001670 005067 177376 



177356 
000010 



001706 012767 000200 



032777 000400 
0014U 



104401 016651 

104401 020673 
104000 

104401 021251 



177327 
177312 
177306 



000004 
177316 
177312 
177302 



177262 
177256 



177366 
177216 



CLR 
CLR 
MOVB 
MOV 
MOV 
JISIZE FOR A 
II EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 

BR 
64SJ MOV 

RTI 
65$j MOV 

MOV 
66$j MOV 

CLR 



$TIMES 

SESCAPE 

#1,SERMAX 

«.,SLPADR 

#.,SLPERR 



IlINITIALIZE NUMBER OF ITERATIONS 
llCLEAR THE ESCAPE ON ERROR ADDRESS 
I I ALLOW ONE ERROR PER TEST 
n INITIALIZE THE LOOP ADDRESS FOR SCOPE 
llSETUP THE ERROR LOOP ADDRESS 



HARDWARE SWITCH REGISTER, IF NOT FOUND OR IT IS 
1»» SETUP FOR A SOFTWARE SWITCH REGISTER, 
jlSAVE ERROR VECTOR 
;|SET UP ERROR VECTOR 

llSETUP FOR A HARDWARE SWICH REGISTER 
HAND A HARDWARE DISPLAY REGISTER 
llTRY TO REFERENCE HARDWARE SWR 
jiBRAMCH IF NO TIMEOUT TRAP OCCURRED 
I, 'AND THE HARDWARE SWR IS NOT a -1 
JiBRANCH IF NO TIMEOUT 
jlSET UP FOR TRAP RETURN 



9#ERRVEC,-CSP) 

»64S#&#ERRVEC 

#DSWR,SWR 

#DD;SP, DISPLAY 

#-«l#&SWR 

66$ 

65$ 
#65S»(SP) 



#SWREG,SWR IIPOINT TO SOFTWARE SWR 

#DISPREG, DISPLAY 

(SP)4',9«ERRVEC iiRESTORE ERROR VECTOR 



CLH TABFLG 
MOV »8,f$TMP15 



#200,DLPRI 



BIT #SW8#P5WR 
BEQ IS 



CLEAR MULTIPLE DEVICE 

TESTING FLAG 

CLEAR TABLE CREATION FLAG 

SET CHARACTER LENGTH DESIGNATOR 

FOP 8 BITS — THIS IS THE DEFAULT 

LENGTH ASSUMED BY THE PROGRAM 

UNLESS THE USER CHANGES IT THRU 

THE QUESTION AND ANSWER CYCLE 

INITIATED BY SETTI'-G Sw<0> TO A 1 

SET STANDARD PRIORITY LEVEL 

FOP DEVICE 

IS THE 'LOOP on TEST' SWITCH SET? 

BRANCH IF NOT 



IF THE 'LOOP ON TEST* SWITCH WAS SET WE WILL TAKE THE NEXT BRANCH 
INSTRUCTION THUS BYPASSING TABLE CREATION 

IF THE USER DESIRED TO LOOP ON A TEST OF OTHER THA^' THF DEFAULT DEVICE 
THEN HE SHOULD HAVE PREVIOUSLY FILLED THE FOLLOWING PROGRAM LOCATIONS 
WITH THE DESIRED DEVICE REGISTER VALUES: 

UNDER iDLll DEFINITIONS ABOVE 



DLRCSRi 
DLRDBRI 
DLXCSRI 
DLXDBRi 
DLVECTj 

TYPE, STMES 

TYPE, FAILSA 

ERROR +0 

TYPE, PCMSG 



PATCH THE ADDRESS OF THE PCVp CSP 
PATCH THE ADDRESS OF THF RCVR DBR 
PATCH THE ADDRESS OF THE XMIT CSR 
PATCH THE ADDRESS OF THE XMIT DBR 
PATCH THE VECTOR ADDRESS OF THIS DLll 

jPRInT OUT 'MAINDEC NAME 
;TYPE F2^ILSAFe MESSAGE 
jTYPE OUT THE PC VALUE 
jFOLLOWED BY =PC 
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466 


001742 


000000 






467 


001744 


000443 






468 


001746 








469 










470 










471 










472 










473 










474 










475 










476 










477 










478 










479 


001746 


012767 


175610 


177304 


480 


001754 


004767 


006110 




481 










462 


001760 


012767 


000300 


177432 


483 


0O1766 


005067 


177264 




464 










485 


001772 


012706 


OOllOO 




486 


001776 


012737 


015034 


000004 


487 


002004 


012737 


000340 


000006 


488 


002012 


012737 


015060 


OOOOlO 


489 


002020 


012737 


000340 


000012 


490 










491 










492 










493 










494 










495 


00202S 


105767 


177224 




496 


002032 


001010 






497 










498 


002034 


104401 


016651 




499 










500 


002040 


105167 


177212 




501 










502 


002044 


032777 


OOOOOl 


177066 


503 










504 










505 










506 


002052 


001012 






507 


002054 


005077 


177334 




508 


002060 


005077 


177324 




509 


002064 


005777 


177322 




510 


002070 


005777 


177316 




511 


002074 


000167 


00.0670 




512 










513 










514 










515 










516 










517 










518 










519 










520 


002100 


104401 


017233 




521 











HALT 
BR 



ONCE 



fWAIT FOR USER TO RESPOND 

|G0 TO TEST DEVICE PATCHED IN BY USER 



ISl 

lENSURE THAT IF MULTIPLE DEVICE TESTING WAS BEING DONF 

I AND THE USER 'HALTED' THE PROGRAM BEFORE ALL DEVICES 

|WERE COMPLETED AND WENT BACK TO 'LOAD ADDRESS 200' 

|T0 RESTART THE PROGRAM THAT AS A BARE MINIMUM 

|HE CAN RUN THE DEFAULT DEVICE (ISI PFCEIVER 

iSTATUS REGISTER ADDRESS 175610) 

|NOTE| IF THIS IS NOT SUITABLE THE USER WILL 

I HAVE TO SET SWQsl (OR UP) IN ORDER TO 

f RECREATE THE TABLE HE DESTROYED FROM 

I ABOVE 

MOV #175610, DLBASE 

JSR PCDLADDR 



MOV 
CLR 

RESTRTI MOV 
MOV 
MOV 
MOV 
MOV 



#300,DLVECT 
TABFLG 

#STACK,SP 

»BUSERR,§»ERRVEC 

«340,§#ERRVFC-»-2 

«RSVERR,?#RE5VEC 

#340,g#RESVEC-«-2 



J 1ST POSSIBLE RECEIVER CSR 

;FORM DL ftDDRESSES FOR 

;1ST POSSIBLE DEVICE 

1 1ST POSSIBLE INTERRUPT VECTOR 

iCLEAR TABLE CREATION FLAG 

I SET up STACK POINTER 

I SET UP BUS ERROR VECTOR 

jSET UP RSVD INSTR, VECTOR 



iTHIS NEXT SECTION WILL CHECK TO SEE IF MULTIPLE DEVICE TESTING 

|WILL TAKE PLACE I,E,« 

I A) HAS FREE RUNNING DEVICE TABLE ALREADY BEEN CREATED, AND/OR 

I B) IF IT HAS, DOES USER WISH TO CHANGE IT, OR DO WE TEST DEFAULT DEVICE? 



TSTB 
BNE 



TABFLG 
ONCE 



}HAS TABLE CREATION BEEN PERFORMED? 

jBRANCH IF YES TO SKIP 'MAINDEC 

I TITLE' MESSAGE 

lOTHERWISE, PRINT OUT 'MAINDEC 

jNAME 

fIF TABLE CREATION HAS NOT BEEN 

IPERFORMED, THEN SET FLAG, AND DO SO 

I THE PROGRAM HAS OBVIOUSLY BEEN 

f RESTARTED - DOES USER WISH TO 

iRESELECT VECTOR AND CONTROL REGISTER 

lADDRESSES I,E, » CREATE A NEW TA'BLE? 

iBRANCH IF YES 

iCLEAR OUT BOTH CSR'S 

iFLUSH RCVR "DONE" BIT 

lOTHERWISE, GO WITH EXISTING 
I TABLE OR NOT USE ANY TABLE AT 
I ALL WHICHEVER THE CASE MAY BE 
I (DEFAULT CASE IS 1ST POSSIBLE 
; DEVICE) 

I IF WE COME THIS PATH THE USER HAS DECIDED 1 OF 2 ALTERNATIVES! 

I A) TO RUN MULTIPLE DEVICES 

I B) TO CREATE A NEW TABLE TO PUN FROM, OR 

I C) TO CHANGE THE CHARACTER LENGTH 

GOi TYPE, LENGTH |ASK USER FOR THE CHARACTER LENGTH 

iFOR WHICH HIS DEVICE IS SET 



BIT 


#SWO,0SWR 


BNE 


GO 


CLR 


iOLXCSR 


CLR 


§DLRCSR 


TST 


PDLRDBR 


TST 


@DLRDBR 


JMP 


TSTl 
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522 


002104 


104411 




523 








524 


002106 


012600 




525 


002110 


020027 


000010 


526 


002114 


101114 




527 


002116 


020027 


000005 


528 


002122 


103511 




529 


002124 


010067 


177104 


530 








531 


002130 


104401 


017315 


532 








533 


002134 


104410 




534 


002136 


005726 




535 


002140 


001002 




536 


002142 


000137 


002724 


537 


002146 


012700 


000300 


538 


002152 


012701 


000302 


539 


002156 


012702 


000004 


540 


002162 


OlOllO 




541 


002164 


005011 




542 


002166 


060200 




543 


002170 


060201 




544 


002172 


022701 


001000 


545 


002176 


002771 




546 








547 








548 








549 


002200 


104401 


017422 


550 








551 








552 


002204 


104410 




553 








554 








555 


002206 


012600 




556 


002210 


020027 


176170 


557 


002214 


101060 




558 


002216 


020027 


175610 


559 


002222 


103455 




560 


002224 


132700 


000001 


561 








562 


002230 


001052 




563 








564 


002232 


032700 


000007 


565 








566 


002236 


001047 




567 


002240 


010067 


177014 


568 








569 








570 


002244 


016767 


1770J0 177010 


571 


002252 


004767 


005612 


572 








573 


002256 


016767 


177000 177000 


574 


002264 


104401 


017510 


575 


002270 


104410 




576 








577 









MOV 


{SP)+,RO 


CMP 


R0,#8, 


BHI 


RETRY 


CMP 


RO,#S, 


BLO 


RETRY 


MOV 


B0,STMP15 


TYPE, 


DEFAULT 


RDOCT 




TST 


tsp) + 


BNE 


1$ 


JMP 


§#rLUSH 


MOV 


#300, RO 


MOV 


«302,Rl 


MOV 


#4,R2 


MOV 


Rlf (RO) 


CLP 


(Rl) 


ADD 


R2,R0 


ADD 


B2,R1 


CMP 


#1000#R1 


BLT 


28 



RDDEC ; ACCEPT THE ANSWER TYPED BY USER 

I CHECK TO SEE IF USER RESPONSE: WAS WITHIN LIMITS 

;GET THE ANSWER TYPED 

J IS THE NUMBER TOO HIGH? 

I IF YES « GO TO RETRY SITUATION 

>IS THE NUMBER TOO LOW? 

;IF YES - GO TO RETRY SITUATION 

;THE VALUE TYPED IS OK 

jSTORE FOR FUTURE USE 

;A5K USER IF HE WISHES TO TEST OTHKR 

jTHAN THE DEFAULT DEVICE 

jACCEPT THE ANSWER TYPED BY USER 

;LOOK AT THE ANSWER 

jBRANCH IF REPLY hAS YES 

jOTHEPWISE, SKIP REST OF INTERROGATION 

J START RESTORATICJ OF TRAPCATCHER 

?AREA FROM LOCATIONS 300 TO 776 

;S0 THAT WE CREATE THE MULTIPLE 

fDEVICES TABLE WITH A CLEAN SLATE 

I t 

; • 



»THE TRAPCATCHER VECTOR AREA FROM 300 - 776 SHOULD r,.OW BE RESTORED, 

fPROCEED TO FIND OUT THE 1ST DEVICE RECEIVER CONTROL REGISTER 

; ADDRESS 

FIRSTDi TYPE ,MFIRSTD ;ASK USER FOP THE RECEIVER CONTROL 

jREGISTER ADDRESS OF HIS FIRST 

IDEVIGE 
RDOCT f ACCEPT THE ANSWER TYPFD BY USER 

yAND STORE ON TOP Of STACK 
fCHECK TO SEE IF USER RESPONSE WAS WITHIN LIMITS 

;GET THE ANSWER TYPED 

;IS THE NUMBER TOO HIGH? 

J IF YES-GQ TO RETRV SITUATION 

}IS THE NUMBER TOO LOW? 

;TF YES - GO TO HETPX SITUATION 

;MUMBER IS IN RANGE BUT IS IT 

;0N AN EVEN SOU^DARY? 

jIF NO - GO TO RETRY SITUATION 
yCHECK TO SEE IF USER RESPONSE WAS TRULY A RCVR STATUS REGISTER 

BIT «7,R0 ;WAS THE LEAST SIGMtFICANT DIGIT OK THE 

jUSER RESPONSE EQUAL TO A ZERO? 
BNE RETPYO jBPANCH IF NOT 

MOV RO,DLBASE ;THE 1ST ADDRESS VALUE TYPED IS OK 

; STORE FOP FUTURE USE 
jNOW WE ARE READY TO FIND OUT THE DEVICE INTERRUPT VECTOR 



MOV 


(SP)+,RO 


CMP 


RO, #176170 


BHI 


RETRYO 


CMP 


RO, #175610 


BLO 


RETRYO 


BITB 


#BIT0,R0 



BNE 



RETRYO 



MOV 
JSR 



DLBASE,KEEPADP 
PCDLADDR 



;GET 1ST ADDRESS VALUE 
;G0 FORM DL ADDRESSES FOR 
;1ST DEVICE SELECTED 
jRESTORE 1ST DEVICE ADDRESS 
rASK USER FOR A VECIOR ADDRESS 
; ACCEPT THE ANSWER TYPED BY USER 
fAND STORE ON TOP OF STACK 
jCHECK TO SEE IF USER RESPONSE WAS ^ITHIN LIMITS 



VECTI 



HOV 

TYPE 

RDOCT 



KEEPADD,BASEADD 
,MVECT 
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578 


002272 


012600 




579 


002274 


020027 


000776 


580 


002300 


101032 




581 


002302 


020027 


000300 


582 


002306 


103427 




583 


002310 


132700 


000001 


584 








585 


002314 


001024 




586 








587 


002316 


032700 


000007 


588 








589 


002322 


001021 




590 


002324 


010067 


177070 


591 








592 


002330 


016767 


177064 176730 


593 


002336 


016767 


177056 176724 


594 


002344 


000414 




595 








596 


002346 


104401 


001252 


597 








598 


002352 


000167 


177522 


599 


002356 


104401 


001252 


600 








601 


002362 


000167 


177612 


602 


002366 


104401 


001252 


603 








604 


002372 


000167 


177666 


605 


002376 


104401 


017566 


606 








607 


002402 


104410 




608 








609 


002404 


012600 




610 


002406 


005700 




611 


002410 


001003 




612 


002412 


005067 


176654 


613 








614 


002416 


000402 




615 


002420 


105167 


176646 


616 








617 


002424 






618 


002424 


105767 


176642 


619 








620 


002430 


100406 




621 


002432 


005067 


176636 


622 








623 








624 


002436 


005067 


176634 


625 








626 


002442 


000167 


000160 


627 


002446 






628 








629 








630 


002446 


104401 


017653 


631 








632 








633 


002432 


104410 





MOV 


(SP)+,R0 


CMP 


R0,#776 


BHI 


RETRYl 


CMP 


BO, #300 


BLO 


RETRYl 


BITB 


#BIT0,R0 



BNE 



RETRYl 



;GET THE ANSWER TYPED 
;IS THE NUMBER TOO HIGH? 
;IF YES - GO TO RETRY SITUATION 
;IS THE NUMBER TOO LOW? 
;IF XES " GO TO RETPY SITUATION 
jNUMBER IS IN RANGE BUT IS IT 
, ;0N AN EVEN BOUNDARY? 
;IF NO - GO 10 RETRY SITUATION 



fCHECK TO SEE IF THE USER RESPONSE WAS TRULY A RCVR VECTOR ADDRESS 



#7,R0 





BNE 
MOV 


BETRYl 
RO,DLVECT 




MOV 
MOV 
BR 


DLVECT,KEEPIV 
DLVECT»BASEIV 
HOWMANY 


RETRYl 


TYPE, 


SQUES 


RETRYO: 


JMP 
1 TYPE 


GO 
»SQUES 


RETRYl 1 


JMP 
TYPE 


FIRSTD 
ilOUES 


HOWMANS 


JMP 
:iTYPE 


VECT 
,MULDEV 




RDOCT 






MOV 
TST 
BNE 
CLR 


(SP)+,RO 

BO 

19 

MULTD 


ISl 


BR 
COMB 


28 
MULTD 



2Sl 



>WAS THE LEAST SIGNIFICANT DIGIT OF TH 

;USER RESPONSE EQUAL TO A ZERO? 

rBRANCH IF NOT 

;THE VECTOR VALUE TYPED IS OK 

J STORE FOR FUTURE USE 

;GET THE FIRST VECTOR VALUF 

JSAVE FIRST VECTOR VALUE 

J GO TO SEE IF USER i^ANTS MORE 

fTHAN 1 DEVICE 

jTYPE '?' INDICATING USER TYPED 

; SOMETHING WRONG FOR CHARACTER LENGTH 

jGO BACK TO REISSUE QUESTION 

.•TYPE '?' INDICATING USER TYPE 

f SOMETHING WRONG FOU 1ST ADDRESS 

jGO BACK TO REISSUE QUESTION 

;TYPE •?' INDICATING USER TYPED 

;SOMETHING WRONG FOR VECTOR 

jGO BACK TO REISSUE QUESTION 

|ASK USER IF HE WISHES TO RUN 

jMULTIPLE DEVICES 

fACCEPT THE ANSWER TYPED BY USER 

jAND STORE ON TOP OF STACK 

;GET THE ANSWER TYPED 

J WAS THE ANSWER YFS? 

jBRANCH IF IT WAS 

;OTHERWISE, INITIALIZE FLAG TO 

jINDICATE NON-MULTIPLE DEVICES 

?SKIP NEXT INSTRUCTION 

» INITIALIZE FLAG TO INDICATE 

JRUNNING OF MULTIPLE DEVICES 



TSTB 



WULTD 



;ARE THERE MULTIPLE DEVICES ON 

yTHE SYSTEM? 
I IF SO, GO TO ASK NEXT QUESTION 

ICLEAR DEVICE ACTIVE FLAG TO 

fINDICATE NO RUNNING OF MULTIPLE 

jDEVICES 

yCLEAR DEVICE ADDRESS POINTER IN 

jUSE WHEN RUNNING MULTIPLE DEVICES 

ISKIP ASKING NEXT QUESTION 
LASTDl 

I WE WILL NOW BEGIN TO SET UP THE DEVICE ACTIVE REGISTER FOR RUNNING 
^MULTIPLE DLll DEVICES 

TYPE ,MLASTD ; ASK USER FOR THE RECEIVER 

;CONTROL REGISTER ADDRESS OF 

fHIS LAST DEVICE 
RDOCT J ACCEPT THE ANSWER TYPED BY 



BMI 
CLB 


LASTD 
ACTREG 


CLR 


ROTADD 


JMP 


CONOUES 



MAINDEC-11«DZDLC»B MACYll 30(1046) 12-JUL-77 10l02 PAGE 13 
DZDLCB.PII 06-MAY-77 10|04 INITIALIZE THE COMMON TAGS 



"I 



634 
635 
636 
637 
639 
639 
640 
641 
642 
643 
644 
645 
646 
647 
646 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 



002454 012600 
002456 020027 



002462 
002464 
002470 
002472 



176170 



101132 

020027 175610 

103527 

132700 000001 



002476 001124 



002500 032700 000007 



002504 001121 

002506 010067 176566 



002512 012767 000001 

002520 005067 176550 

002524 056767 176546 

002532 000241 

002534 006167 176536 

002540 103422 

002542 062767 000010 

002550 026767 176524 

002556 101362 



002560 056767 176512 
002566 012767 000001 



176506 
176502 



002574 016767 176462 176462 



002fi02 000167 000020 
002606 



002606 016767 176450 

002614 104401 017751 

002620 104410 

002622 000167 177626 
002626 



002626 104401 020035 
1)02632 104410 



MOV 


(SP)+,BO 


CMP 


RO, #176170 


BHI 


RETP¥2 


CMP 


BO, #175610 


BLO 


RETPY2 


BITB 


#BIfOfBO 



jUSER AND STORE ON TOP OF STACK 
»CHECK TO SEE IF THE USER RESPONSE l«AS WITHIM LIMITS 
i$l MOV (SP)+,BO ;GET THE ANSWER TYPED 

;IS THE NUMBER TOO HIGH? 

jIF YES - GO TO RETRY SITUATION 

?IS THE NUMBER TOO LOW? 

;IF YES - GO TO RETRY SITUATION 

;NUMBER IS IN RANGE BUT IS IT 

;0N AN EVEN BOUNDARY? 

J IF NOT - GO TO RETRY SITUATION 
fCHECK TO SEE IF USER RESPONSE WAS TRULY A RCVR STATUS REGISTER 

BIT »7,R0 ;WAS THE LEAST SIGNIFICANT DIGIT OF THE 

fUSER RESPONSE EQUAL TO A ZERO? 
BNE RETPY2 jBHANCH IF NOT 

MOV R0,LA.STADD jTHE LAST ADDRESS VALUE TYPED IS OK 

; STORE FOB FUTURE USE 
}NOW WE BEGIN TO ACTUALLY INITIALIZE THE DEVICE ACTIVE REGISTER 
fFfiOM WHICH THE PROGRAM WILL CYCLE UNTIL ALL DEVICES HAVE BEEN TESTED 



BNE 



RETBY2 



176542 2$l 



176514 
176306 



MOV 
CLR 
BIS 
CLC 

RQL 
BCS 
ADD 
CMP 
BHI 



«1,P0TADD 

ACTREG 

ROTADD,ACTREG 



BOTADD 

3$ 

«10#BASEADD 



jSET up POINTER FOR 'ACTBEG' 

;CLEAR DEVICE ACTIVE REGISTER 

fMAKE 1ST DEVICE ACTIVE 

yCLEAR CARRY BIT FOR POINTER 

;ROTATION 

jARE WE PAST 16 LINE RANGE? 

; BRANCH IF YES 

J STEP UP BASE ADDRESS 



LASTADD,BASEADD jIS THIS THE LAST DEVICE? 



jNOTE: 



3$S 



BRANCH IF NOT 

IF THIS PATH IS TAKEN IT IS ASSUMED THAT AT LEAST 2 DEVICES 
EXIST AND THAT ALL ADDRESSING IS CONTIGUOUS 



BIS 
MOV 



JMP 



ROTADD, ACTREG 
»1,R0TADD 



KEEPAD,BASEADD 



CONQUES 



{INDICATE NEXT DEVICE ACTIVE 
;RESET POINTER FOR 'ACTREG' FOR 
jLATER USE IN END OF PASS ROUTINE 
?PESET 1ST DEVICE RECEIVER 
{CONTROLLER REGISTER ADDRESS FOR 
{LATER USE IN END OF PASS ROUTINE 
jGO TO CONTINUE QUESTIONING OF USER 



lIF WE TAKE THIS PATH IT APPEARS THAT THERE ARE NOT AT LEAST 

jTWO DEVICES PRESENT - IN RESPONSE TO USER TYPING 'YES' TO MULTIPLE 

{DEVICES QUESTION 

MOV KEEPADD,BASEADD {RESET 1ST DEVICE RECEIVER 

{CONTROLLER REGISTER ADDRESS 
TYPE fMRANGE {INFORM USER TO CHECK AND RETYPE 

{THE LAST DEVICE RCSR ADDRESS 
RDOCT {ACCEPT THE ANSWER TYPED BY USER 

{AiMO STORE ON TOP OF STACK 



JMP 



IS 



CONQUESI 

{IF WE HAVE REACHED THIS PORTION WE K'mOWj 

{ A) THE 'RXCSR' ADDRESS OF THE 1ST DEVICE 

{ B) THE 'RXCSR' ADDRESS OF THE LAST DEVICE, SAND 

{ C) THE INTERRUPT VECTOR OK THE 1ST DEVICE 

{NOW LET'S FIND THE PRIORITY LEVEL 

TYPE ,PLEVEL {ASK USER FOR PRIORITY LEVEL 

RDOCT {ACCEPT ANSWER TYPED BY USER AND 
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690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
,702 
703 
704 
705 
706 
707 
708 
709 
710 
71J 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 



002634 
002636 
002642 
002644 
002650 



012600 
020027 
101046 
020027 
103443 



002652 010067 



002656 
002662 
002666 
002672 
002676 
002702 



006367 
006367 
006367 
006367 
006367 
016767 



002724 
002730 
002734 
002740 
002744 
002750 

002754 
002760 



005077 
005077 
005777 
005777 
000167 
104401 

000167 
104401 



002770 
002772 
002776 
003004 
003010 
003012 
003014 
003020 
003026 
003030 
003032 



000004 
016746 
012767 
016702 
005712 
000407 
004767 
012767 
104001 
022626 
012667 



000007 
000004 
176424 



176420 
176414 
176410 
176404 
176400 
176374 



002710 162767 000001 
002716 042767 000037 



176464 
176454 
176452 
176446 
000020 
001252 

177466 
001252 



002764 000167 177636 



175006 
003014 
176400 



011112 
003030 



176374 
176366 
176J60 



MOV 


CSP)+,BO 


CMP 


R0,«7 


BHI 


RETRY3 


CMP 


R0,#4 


BLO 


RETRY3 


MOV 


RO,DLPRI 



{THIS SECTION WILL CALCULATI 
{PROCESSOR BASED ON THE USE! 
{DEVICE 



ASL 
ASL 
ASL 
ASL 
ASL 
MOV 

SUB 

BIC 

FLUSHi CLR 
CLR 
TST 
TST 
JMP 

RETRY2I TYPE 

JMP 
RETRY3I TYPE 



DLPRI 
DLPPI 
DLPRI 
DLPRI 
DLPRI 
DLPRI, LESSl 

#1,LESS1 

#37fLESSl 

0DLXCSR 

PDLRCSR 

iDLPDBR 

0DLRDBR 

TSTl 

»$QUES 



{STORE ON Tnp OF STACK 

{GET THE ANSWER TYPED 

{IS THE NUMBER TOO HIGH? 

{IF YES - GO TO RETFV SITUATION 

{IS THE NUMBER TOO LOW? 

{IF YES GO TO RETRY SITUATION 

{THE PRIORITY TYPED IN IS OK 

{STORE FOR FUTURE USE 

E THE PRIORITY LEVEL FOR THE 

R RESPONSE FOR PRIORITY LEVEL OF THE 

{FORM BITS <7-5> OF PSW 



{STAPT TO FORM LEVEL TO ALLOW 

{INTERRUPTS 

{DROP DEVICE LEVEL PRIORITY 

{BY 1 LEVEL FOR PSW 

{MAKE SURE THE T,N,Z,V & C 

{BITS FOR THE PROCESSOR ARE CLEAR 

{CLEAR OUT BOTH CSR'S 



LASTD 
rSQUES 



{GO 



{FLUSH RCVR "DONE" BIT 

{BEGIN TESTING 

{TYPE ♦?' INDICATING USER TYPED 
{SOMETHING WRONG FOP LAST ADDRESS 
BACK TO REISSUE QUESTION 

{TYPE'?' INDICATING USER TYPED 
{SOMETHING WRONG FOR PRIORITY 
{GO BACK TO REISSUE QUESTION 



003036 000004 
003040 016746 



{*TEST 1 TEST THAT REFERENCE TO RCSR DOES NOT CAUSE TIMEOUT 
{{#*»»##*»»*»#»#»#««**»*»»««*«»##»«*»«»«*»####*««»»##«#»»#»####*# 

{SAVE THE TIMEOUT VECTOR 

{GO TO 18 IF TIMEOUT 

{REGADR s RCSR ADR 

{USE REGADR ON BUS 

{{<G0 TO NEXT TEST IF NO TIME0UT> 

{GO SET UP ERROR INFO 

{RETURN TO 28 AFTER ERROR PRINT 

{DL REFERENCE CAUSED BUS TIMEOUT 

{CLEAN STACK FROM TIMEOUT 

{RESTORE TIMEOUT VECTOR 

{{«»»^^##»»»»»^^#»*»^n^#^^»»»»«»«#^^»#»*^«^n^^n^<^#^^»^n^#^^^^^^^^^n^^^^^^^^nn^^^^^n^^^ 
,»TEST 2 TEST THAT REFERENCE TO XCSR DOES NOT CAUSE TIMEOUT 

TST2I SCOPE 

MOV ERRVEC,«CSP) {SAVE THE TIMEOUT VECTOR 



TSTll 


SCOPE 






MOV 


ERRVEC»-CSP) 




MOV 


»1S#ERRVEC 




MOV 


DLRCSR,R2 




TST 


(R2) 




BR 


38 


ISI 


JSR 


PCSUERTl 




MOV 


#28»$ESCAPE 




ERROR+l 




2$l 


CMP 


(SP)+,(SP)+ 


381 


MOV 


(SP)+,ERRVEC 
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746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
7^90 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 



003044 
003052 
003056 
003060 
003062 
003066 
003074 
003076 
003100 



003104 
003106 
003112 
003120 
003124 
003126 
003130 
003134 
003142 
003144 
003146 



003152 
003154 
003160 
003166 
003172 
003174 
003176 
003202 
003210 
003212 
003214 



003220 
003222 
003224 
003230 



012767 
016702 
005712 
000407 
004767 
012767 
104001 
022626 
012667 



000004 
016746 
012767 
016702 
005712 
000407 
004767 
012767 
104001 
022626 
012667 



000004 
016746 
012767 
016702 
005712 
000407 
004767 
012767 
104001 
022626 
012667 



000004 
005004 
016702 
020412 



003062 
176336 



011044 
003076 



174672 
003130 
176266 



010776 
003144 



174624 
003176 
176224 



010730 
003212 



003232 001403 
003234 004767 
003240 104002 



003242 000004 

003244 012704 000200 

003250 016702 176140 



MOV 


#l8iEPRVEC 


MOV 


0LXCSR,R2 


TST 


CR2) 


BP 


3$ 


JSR 


PCSUERTl 


MOV 


#2$#$ESCAPE 


EPRQR41 




CMP 


(SP)+,(SP)+ 


MOV 


(SP)+,ERRVEC 
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T2 TEST THAT REFERENCE TO XCSR DOES NOT CAUSE TIMEOUT 

174732 MOV #18|ERRVEC |G0 TO IS IF TIMEOUT 

jREGADR s XCSR ftDR 
fUSE REGADR OH BUS 

;|<G0 TO NEXT TEST IF NU TIN'EOUT> 
;G0 SET UP ERROR INFO 
J RETURN TO 2S AFTER ERROR PRINT 
jDIi REFERENCE CAUSED BUS TIMEOUT 
281 CMP (SP)+,(SP)+ jCLEAN STACK FROM TIMEOUT 
3S| MOV (SP)+,ERRVEC jRESTORE TIMEOUT VECTOR 

J I »#«»»•»»»»»**«*«■»#■»»##«#»*»«#»»»#*»#■»■»»#*»#»»»*■»»#»»**«#»**«■»■«'»« 
f»TEST 3 TEST THAT REFERENCE TO RDBR DOES NOT CAUSE TIMEOUT 

;SAVE THE TIMEOUT VECTOR 
;G0 TO IS IF TIMEOUT 
J REGADR = RDBR ADR 
fUSE REGADR ON BUS 

;><G0 TO NEXT TEST IF NO TIMEOUT> 
;G0 SET UP ERROR INFO 
;RETURN TO 2$ AFTER ERROR PRINT 
>DL REFERENCE CAUSED BUS TIMEOUT 
2$l CMP (SP)+,CSP)+ ;ClEAN STACK FROM TIMEOUT 
3$| MOV (SP)+,ERRVEC ;RFSTORE TIMEOUT VECTOR 

f f »»«»««««««««««»#»»«"»««'#«'»«'««»»'»#»«#««»#«»##«««'»«#«»#«'»«««»#«'»'»« 
>»TEST 4 TEST THAT REFERENCE TO XDBR DOES NOT CAUSE TIMEOUT 

I J *»»#«##«***■!»»#»*■»■»»■»**»»«»#■»##■»**#»»#*«»*■»»*»*«»»»#»#«*»»»**#»» 

ySAVE THE TIMEOUT VECTOR 

UGO TO IS IF TIMEOUT 

; REGADR = XDBR ADR 

;USE REGADR ON BUS 

;j<GO TO NEXT TEST IF Nn TIMeOUT> 

;G0 SET UP ERROR I^FO 

jRETURN TO 2$ AFTER ERROR PRINT 

fDL REFERENCE CAUSED BUS TIMEOUT 

; CLEAN STACK FROM TIMEOUT 

; RESTORE TIMEOUT VECTOR 



SCOPE 




MOV 


ERRVECf-CSP) 


MOV 


#1$,ERRVEC 


MOV 


DLRDBR,R2 


TST 


(R2) 


BR 


38 


JSR 


PCSUERTl 


MOV 


#2S#SESCAPE 


ERROR+1 




CMP 


(SP)+,CSP)+ 


MOV 


(SP)+,ERRVEC 



281 

3Sl 



SCOPE 




MOV 


EPRVEC,-(SP) 


MOV 


»1S»ERRVEC 


MOV 


DLXDBR,P2 


TST 


(R2) 


BR 


3$ 


JSP 


PCSUERTl 


MOV 


»2S»6ESCAPE 


EPROR+1 




CMP 


(SP)+,{SP)+ 


MOV 


(SP)+,ERRVEC 



l«TEST 5 TEST THAT RCSR 
I > »»#»#»»*»»«»■»»»#«*#»»**«■»#**« 
TST5J SCOPE 

CLP R4 
MOV DLRCSR,R2 
CMP P4,(R2) 
BEQ TST6 
JSR PC,SUER2 
EPRnR+2 
I ;»»»»««««»««««#'»»«««»««««««««'» 
>»TEST 6 TEST THAT "READ 
I f «««««»«»»««»»»#»»«##•»»<»«»#««« 
TST6J SCOPE 

MOV #200, R4 
MOV DLXCSR#R2 



IS ALL ZEROES ON ENT«Y 

;RESULT IN RCSR S/B a 
; REGADR = RCSR ADP 
; [RCSR3=000000 17 
;j<BR IF YES> 
;G0 SET UP ERROR IN'i^'O 
fRCSR NOT CLEAR ON START UP 
«•»»■»**»«**»»«■*»*»»»«*»#«*««»■»»«•»»» 
" BIT IS ONLY BIT SPT I^ XCSR 

jRESULT IM XCSR S/B = 000200 
fREGADR = XCSR ADR 
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CMP P4,(R2) ; CXCSR]=000200 ?? 

BEQ TST7 ;j<8R IF YES> 

JSR PC,SUER2 ?G0 SFTUP ERROR InFO 

EPROR+2 jtXCSR} INCORRECT DN START UP 

} }«')(««««««»#»«»#»'»««««««««««««#« ««»»#-»«#«'«#»«#«4l^«4^«^» »««»'»'»'##'»-»"»«« 

|»TEST 7 TEST THAT "MAINT" BIT CAN BE SET fiND CLEARED 

I f »»#*##»»»»*#•»»*#»*»»#»«#«*«■»■»» »»*;n^*» »»«»*»*»#»»« «#»*»*#»«#*##«• 

TST7J SCOPE 

#204, R4 ;RESULT IN XCSR S/B = 0U0204 

DLXCSR,R2 fPEGADR a XCSR ADR 
«BIT2#(R2) ;SET THE "MAINT" BIT 
P4,CR2) JRESULT IN XCSR OK ?? 



802 


003254 


020412 




803 


003256 


001403 




804 


003260 


004767 


010566 


805 


003264 


104002 




806 








807 








808 








809 


003266 


000004 




810 


003270 


012704 


000204 


811 


003274 


016702 


176114 


812 


003300 


052712 


000004 


813 


003304 


020412 




814 


003306 


001403 




815 


003310 


004767 


010536 


816 


003314 


104002 




817 


003316 


012704 


000200 


818 


003322 


042712 


000004 


819 


003326 


020412 




820 


003330 


001403 




821 


003332 


004767 


010514 


822 


003336 


104002 




823 








824 








825 








826 


003340 


000004 




827 


003342 


005067 


176076 


828 


003346 


016705 


176046 


829 


003352 


012765 


003440 000004 


830 


003360 


016765 


175716 000006 


831 


003366 


005005 




832 


003370 


012704 


000200 


833 


003374 


016702 


176014 


834 


003400 


052712 


000100 


835 


003404 


005767 


176034 


836 


003410 


001020 




837 


003412 


005305 




838 


003414 


001373 




839 


003416 


012704 


000300 


840 


003422 


004767 


010424 


841 


003426 


012767 


003436 175610 


842 


003434 


104002 




843 


003436 






844 


003436 


000412 




845 


003440 


005167 


176000 


846 


003444 


042712 


000100 


847 


003450 


000002 




846 


003452 


020412 




849 


003454 


001403 




850 


003456 


004767 


010370 


851 


003462 


104002 




852 








853 








854 








855 


003464 


000004 




856 


003466 


012704 


000100 


857 


00347^2 


016702 


175712 



18| 



MOV 

MOV 

BIS 

CMP 

BEQ 

JSR 

EPROR+2 

MOV 

BIC 

CMP 

BEQ 

JSR 

ERROH+2 



18 ;f<BR IF yES> 

PC,SUER2 ;G0 SET UP ERROR INFO 

jMAINT, BIT FAILED TO SET PROPERLY 
#200, R4 jRESULT IN XCSR S/B = 000200 

#BIT2»CR2) ;NOW CLEAR THE "MAINT" BIT 
B4,(P2) jRESULT IN XCSR OK ?? 

TSTIO j;<BR IF YES> 

PC,SUEB2 ;G0 SET UP ERROR INFO 

jMAINT BIT FAILED TO CLEAR PROPERLY 
J )»l»«»»«»«« »»»«»«»»')«'«'«»«««»#«"»»«#««#«« i^««»-if"i('#««"ii'«'»« it »#«»«##«##'»'»» 
l«TE5T 10 TEST THAT XMIT I.E. CAN CAUSE AN IKTP 

TSTlOi SCOPE 

jINIT SOFTWARE INTR FLAG 
jGET VECTOR ADDRESS 
;G0 TO 4S ON INTR 
^PRIORITY LEVEL 4 
jINIT INTR, TIMER 
;RESULT IN XCSR S/B s 000200 
;REGADP s XCSR ADR 
;SET INTR, ENABLE BIT 06 
181 TST INTFLG ;DID INTR OCCUR YET ?? 

jBR IF IT DID 
jCOUNT THE TIMER 
;BR IF NO TIMEOUT 
jRESULT IN XCSR S/B = 000300 
jGO SETUP ERROR INFO 
; RETURN TO 48 AFTER ERROR PRINT 
jiNTR, FAILED 



481 
281 



CLB 


INTFLG 


MOV 


DLVECT,R5 


MOV 


#28f4(R5] 


MOV 


DLPPI,6(R5) 


CLR 


R5 


MOV 


#200, R4 


MOV 


DLXCSR,R2 


BIS 


#100, (P2) 


TST 


INTFLG 


BNE 


38 


DEC 


R5 


BNE 


18 


MOV 


#300, R4 


JSR 


PC,SUER2 


MOV 


#48#8ESCAPE 


ERB0R<l-2 




BR 


TSTU 


COM 


INTFLG 


BIC 


#100, fB2) 


BTI 




CMP 


R4,(R2) 


BEQ 


fSTU 


JSR 


PC,SUEB2 


EPROR-1'2 





j»<GO TO NEXT TEST> 
{SET THE SOFTWARE FLAG 
fTURN OFF I.E. BIT 
^RETURN CONTROL TO INTR, ROUTINE 
381 CMP R4,(R2) jRESULT IN XCSR OK ?? 

f|<BR IF YES> 
|G0 SET UP ERROR INFO, 
fXMIT INTR, NOT SERVICED PROPERLY 

,»TEST 11 TEST THAT BCVB I.E. BIT CAN BE SET AND CLEARED 

TSTU I SCOPE 

MOV #100, R4 fPESULT IN RCSR S/B s OOOiOO 

MOV DLRCSB,R2 j REGADR s RCSR ADR 
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li 



858 


003476 


052712 


000100 






BIS 


#BIT6»(R2) 


859 


003502 


020412 








CMP 


B4,(R2) 


860 


003504 


001403 








BEQ 


1$ 


861 


003506 


004767 


010340 






JSR 


PC,SUER2 


862 


003512 


104002 








ERROB+2 




863 


003514 


005004 






ISl 


CLR 


R4 


864 


003516 


042712 


000100 






BIC 


»BIT6,(R2) 


865 


003522 


020412 








CMP 


R4,(R2) 


866 


003524 


001403 








BEQ 


TST12 


867 


On3526 


004767 


010320 






JSR 


PC,SUER2 


868 


003532 


104002 








ERROR-l-2 




869 










,;##»»*»»»»«»»«»###»«»»#«,««. 


870 










|»TEST 


12 


TEST THAT RC 


871 










1 »»»#»#»#*»»»»»#»»»«##«»»««#. 


872 


003534 


000004 






TST12I 


SCOPE 




873 


003536 


016705 


175656 






MOV 


DLVECT,R5 


874 


003542 


012725 


003720 






MOV 


#3$,(R5)+ 


875 


003546 


016715 


175530 






MOV 


DLPRI,(R5) 


876 


003552 


005067 


175666 






CLR 


INTFLG 


877 


003556 


005005 








CLR 


P5 


878 


no3560 


105067 


175420 






CLRB 


$TMP1 


879 


003564 


016702 


175620 






MOV 


DLBCSR,R2 


880 


003570 


005012 








CLP 


CP2) 


881 


003572 


052712 


000100 






BIS 


#BIT6,CR2) 


882 


003576 


052762 


000004 


000004 




BIS 


#BIT2,4(R2) 


883 


003604 


112767 


000252 


175372 




MOVE 


#252,STMP1 


884 


003612 


004767 


011126 






JSR 


PCUPMASK 


885 
















886 


003616 


116700 


175410 






MOVB 


STMP14,P0 


887 


003622 


116762 


175404 


OnOOUb 




MOVB 


$TMP14,6CR2) 


888 


003630 


005767 


175610 




ISJ 


TST 


INTFLG 


889 


003634 


001044 








BNE 


4$ 


890 


003636 


005305 








DEC 


R5 


891 


003640 


001373 








BNE 


IS 


892 


003642 


013767 


177776 


175332 




MOV 


0«PSW,$TMPO 


893 


003650 


042762 


0000.04 


000004 




BIC 


#BIT2,4(R2) 


894 


003656 


042712 


000100 






BIC 


#100, (R2) 


895 


003662 


010667 


175310 






MOV 


SP,$BEG6 


896 


U03666 


010201 








MOV 


R2,R1 


897 


003670 


011203 








MOV 


(R2)»R3 


898 


O03672 


012704 


000200 






MOV 


#200, P4 


899 


003676 


004767 


010176 






JSR 


PCSUERRl 


900 


O03702 


012767 


003712 


175334 




MOV 


»2S#SESCAPE 


901 


003710 


104002 








ERROR+2 




902 


003712 


005762 


000002 




2$! 


TST 


2CR2) 


903 
















904 
















905 


003716 


000437 








BR 


TST13 


906 


003720 


042762 


000004 


000004 


3SI 


BIC 


#8IT2,4(B2) 


907 


003726 


116267 


000002 


175250 




MOVB 


2(R2),$TMPl 


908 


003734 


042712 


000100 






BIC 


»BIT6,(R2) 


909 


003740 


005167 


175500 






COM 


INTFLG 


910 


U03744 


000002 








BTI 




9U 


003746 


005004 






4$i 


CLR 


R4 


912 


003750 


005712 








TST 


(R2) 


913 


003752 


00140 3 








BEQ 


SS 



JSET I.Es BIT 

jDID IT SET PROPERLY ?? 

?><BR IF YES> 

jGU SET UP ERPOP INFO, 

jRCVR I.E. BIT FAILED TO SET PROPERLY 

{RESULT IN RCSR S/8 a 000000 

;CLEAR THE I,E, BIT 

jDID IT CLEAR PROPERLY ?? 

n<BR IF yES> 

;G0 SET UP ERROR INFO 

?RCVR I.E. BIT FAILED TO CLEAR PROPERLY 

VR "DONE" CAN GENERATE AN INTR, 

|GET THE VECTOR ADDRESS 

;G0 TO 3$ ON RCVR INTR, 

JAT LEVEL 4 

jINIT THE SOFTWARE FLAG 

;INIT INTR, TIMER 

;INIT WHERE DATA WILL BE STORED 

fREGADR a RCSR ADR 

JINJT THE RCSR TO 000000 

;EnABLE RCVR INTERRUPTS 

;NOW TURN ON MAINT ^■ODE 

jGET DATA PATTERN AND 

;G0 MASK OFF BITS AS A FUNCTION OF 

.•CHARACTER LENGTH C 5, 6, 1, OR 8 BITS) 

iSAVE DATA PATTERN FUR FURTHER USE 

fLOAD XMIT BUFFER REG^ 

jDXO RCVR INTR, YET ?? 

;BR IF IT DID 

iCOUNT THE TIMER 

;BR IF NO TIMEOUT 

JSAVE ERROR PSW 

jDISABLE MAINT "ODE 

{DISABLE RCVR INTP, 

jSAVE THE ERROR SP 

fDEVADR = RCSR ADR 

.•GET THE WAS DATA 

; tHCSR] S/B = 000200 

;G0 SET UP ERROR INFO, 

; RETURN TO 2S AFTER ERROR ALWAYS 

jRCVR INTERRUPT FAILED 

; REFERENCE RCVR DATA BUFFER 

;T0 CLEAR RCSR IN CASE RCVR 

.•INTERRUPTS COULD NOT BE ENABLED 

j}<GO TO NEXT TEST> 

{DISABLE THE MAINT MODE 

{GET THE RECEIVED DATA 

;TURN OFF RCVR INTR. ENAB 

;SET THE SOFTWARE FLAG 

{RETURN TO MAINLINE 

{ CRCSR] S/Bso 

{IS IT ALL ZEROES ?? 

{{<BR IF YFS> 
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914 


003754 


004767 


010072 


915 


003760 


104002 




916 


003762 


016701 


175424 


917 


003766 


016702 


175424 


918 


003772 


004767 


010746 


919 








920 








921 


003776 


116703 


175230 


922 


004002 


110004 




923 


004004 


020403 




924 


004006 


001403 




925 


004010 


004767 


010064 


926 


U04014 


104003 




927 








928 








929 








930 


004016 


000004 




931 


004020 


032777 


010000 175112 


932 


004026 


001047 




933 


004030 


012704 


140004 


934 


004034 


016702 


175350 


935 


004040 


005012 




936 


004042 


052712 


000004 


937 


004046 


032777 


100000 1-75334 


938 


004054 


001003 




939 


004056 


004767 


007770 


940 


004062 


104002 




941 








942 


004064 


012704 


040004 


943 


004070 


020412 




944 


004072 


001403 




945 


004074 


004767 


007752 


946 


004100 


104002 




947 


004102 


005004 




948 


004104 


042712 


000004 


949 


004110 


032777 


100000 175272 


950 


004116 


001403 




951 


004120 


004767 


007726 


952 


004124 


104002 




953 


004126 


020412 




954 


004130 


001406 




955 


004132 


004767 


007714 


956 


004136 


016767 


000002 175034 


957 


004144 


104002 




958 








959 








960 








961 


004146 


000004 




962 


004150 


0J2777 


010000 174762 


963 


004156 


001046 




964 


004160 


016702 


175224 


965 


004164 


005012 




966 


004166 


012704 


102010 


967 


004172 


052712 


000010 


968 


004176 


032777 


100000 175204 


969 


004204 


001003 





JSR 


PC,SUER2 


ERROR+2 




MOV 


DLRDBR,R1 


MOV 


DLXDBR,R2 


JSR 


PCUPMASK 


MOVB 


8TMP14,R3 


MOVB 


R0,R4 


CMP 


B4,R3 


BEQ 


TST13 


JSR 


PC,SUERR1 


ERROR+3 





{GO SET UP ERROR INFO 
{RCVR INTR NOT SERVICED PROPERLY 
5Sj MOV DLRDBR#R1 {SAVE WAS ADDRESS 

{SAVE THE S/B ADDRESS 

{GET THE WAS DATA AND 

{GO MASK OFF BITS AS A FUNCTION OF 

{CHARACTER LENGTH ( 5, 6, 7# OR 8 BITS) 

{SET UP FOR ERROR CHECKING 

{GET THE S/B DATA 

{WAS = S/B ?? 

{{<PR IF YES> 

{GO SET UP THE ERROR INFO 

{DATA COMPARE ERROR 

{ {»«»«»»»»»#»»*##»«##»»**»#4»##»*#«»*l*«»##*»»»»«»4t«,###»4j»#«^«^<j#<j^ 

{#TEST 13 TEST THAT "REQ TO SEND" ASSERTS "RING" 

{f»«»#4t»»»#»*»4H»*#««##«4t#**###«*«»«*##«4(.«#»*4j###»^*»#«.-»»##*4*«»«*# 

TST13J SCOPE 

{ARE WE TESTING /C OR /D MODEL? 

{{<BBANCH IF YES> 

{RESULT IN RCSR S/B = 140004 

{REGADR 3 RCSR ADR 

{INIT THE RCSR TO 000000 

{SET "REQ TO SEND" 

{DID "RING" SET "DATA SET INT" ? 

{{<BR IF YES> 

{GO SET UP ERROR INFO, 

TRANSITION FAILED TO SET "DATA SET INT" 
"BIT #BIT15,(R2)" RESETS BIT15 
1$J MOV #40004»R4 {RESULT IN RCSR S/B a 40004 

{BOTH "RING" AND "REQ TO SEND" ASSERTED ? 

{><BB IF YES> 

{GO SET UP ERROR INFO. 

{"RING" OR "BEQ TO SEND" FAILED TO SET 
2Sl CLR R4 {RESULT IN RCSR S/B s 000000 

{CLEAR "BEQ TO SEND" 

{DID "DATA SET INT" GET SET ?? 

J{<BR IF NOT> 

{GO SET UP ERROR INFO 

{CLEARING "RING" SET "DATA SET INT" 
381 CMP R4,(R2) {RCSR CONTAIN ALL ZEROES ?? 

{{<BR IF yES> 

{GO SET UP ERROR INFO, 

{SAVE THE ERROR PC 

{CLEARING "REQ TO SEND" FAILED TO CLEAR "RING" 

I^TEST 14 TEST THAT "SEC XMIT" ASSERTS "SEC REC" AND "DATA SET INT" 

TST14I SCOPE 

{ARE WE TESTING /C OR /D MODEL? 
{|<BRANCH IF YES> 
{REGADR a RCSR ADR 
{INIT RCSR TO 000000 
{CONTENTS OF RCSR S/B a 102010 
{SET "SEC XMIT" BIT 
{DID "DATA SET INT" SET ?? 
{J<BR IF YES> 



BIT 


«SW12,iSWR 


BNE 


TSTi4 


MOV 


»140004»R4 


MOV 


DLRCSR,R2 


CLB 


CB2) 


BIS 


»8IT2,(R2) 


BIT 


#BlT15#eDLRCSR 


BNE 


1$ 


JSR 


PC,SUER2 


EPROR+2 


{"RING' 




iNOTEf 


MOV 


#40004»R4 


CMP 


R4,CR2) 


BEQ 


2$ 


JSR 


PC,SUER2 


ERROR+2 




CLR 


R4 


BIC 


»BlT2i(R2) 


BIT 


#BIT15,0DLRCSR 


BEQ 


38 


JSR 


PC,SUER2 


ERROR+2 




CMP 


R4,(R2) 


BEQ 


TST14 


JSR 


PC,SUER2 


MOV 


,+6f$BEG7 


ERROB+2 





BIT 


#SW12,8SWR 


BNE 


TST15 


MOV 


DLRCSR,B2 


CLR 


(R2) 


MOV 


#102010, R4 


BIS 


#BIT3,CR23 


BIT 


#BlTl5»f>DLRCSB 


BNE 


13 
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SEC XMIT" 



ASSERTS "SEC BEC AND "DATA SET INT" 



970 


004206 


004767 


007640 


971 


004212 


104002 




972 








973 


004214 


012704 


002010 


974 


004220 


020412 




97S 


004222 


001403 




976 


004224 


004767 


007622 


977 


004230 


104002 




978 








979 








980 


004232 


012704 


lOOOOO 


981 


004236 


042712 


000010 


982 


004242 


032777 


100000 175140 


983 


004250 


001003 




984 


004252 


004767 


007574 


985 


004256 


104002 




986 








987 








988 


004260 


005004 




989 


004262 


020412 




990 


004264 


001403 




991 


004266 


004767 


007560 


992 


004272 


104002 




993 








994 








995 








996 








997 


004274 


000004 




998 


004276 


032777 


010000 174634 


999 


004304 


001046 




1000 


004306 


016702 


175076 


1001 


004312 


005012 




1002 


004314 


012704 


130002 


1003 


004320 


052712 


000002 


1004 


004324 


032777 


lOOOOn 175056 


1005 


004332 


001003 




1006 


004334 


004767 


007512 


1007 


004340 


104002 




1008 








1009 








1010 


004342 


012704 


030002 


1011 


004346 


020412 




1012 


004350 


001403 




1013 


004352 


004767 


007474 


101,4 


004356 


104002 




1015 








1016 


004360 


012704 


100000 


1017 


004364 


U42712 


000002 


1018 


004370 


032777 


100000 175012 


1019 


004376 


001003 




1020 


004400 


004767 


007446 


1021 


004404 


104002 




1022 








1023 


004406 


005004 




1024 


004410 


020412 




1025 


004412 


001403 





JSf? PC,SUER2 

ERROR+2 



MOV 


#2010, R4 


CMP 


R4,CR2) 


BCQ 


2S 


JSR 


PC,SUER2 


ERROR+2 




MOV 


»BIT15#R4 


BIC 


#BIT3,(R2) 


BIT 


»B1T15,9DLRCSR 


BNE 


3$ 


JSR 


PC,SUER2 


EBROR+2 




CLlR 


R4 


CMP 


R4,(R2) 


6EQ 


TST15 


JSR 


PC,SUER2 


ERPOR+2 





l*TEST 15 TEST THAT "DTP 
TST15I SCOPE 



BIT 
BNE 
MOV 
CLH 
MOV 
BIS 
BIT 
BME 
JSR 
ERROR+2 



»SW12#§SWR 

TST16 

DLPCSR,R2 

(R2) 

#130002#P4 

«BIT1,(R2) 

#B1T15,3DLRCSR 

1$ 

PC,SUEP2 



MOV 
CMP 
BEQ 
JSR 
EPROR+2 

MOV 
BIC 
bIT 
BNE 
JSR 
EPROR+2 



«30002»P4 
R4,(R2) 
2$ 
PC,SUEP2 



«BIT15#R4 

#BIT1,(R2) 

#BIT15,PDLRCSR 

3S 

PC,SUEP2 



CLR 
BEO 



R4 

R4,fP2) 

TST16 



GO SET UP ERROR IMFO 

"DATA SET INT" FAILED TO SET-NOTE THAT 

"alT #B1T15,CP2)" RESETS B1T15 

RESULT IN RCSR S/S = 2010 

ARE "SEC XMIT" AND "SEC REC" BOTH SET ? 

><BR IF YES> 

GO SET UP ERROR INFO 

"SEC XMIT" OR "SEC PEC" FAILED TO SET 

OP "DATA SET INT" FAILED TO BE CLEAhbD 

WHEN REFERENCING RCSR 

RESULT IN RCSR S/B = 100000 

CLEAR "SEC XMIT" BIT 

DID CLEARING IT SET "DATA SET INT"?? 

j<BB IF YES> 

GO SET UP ERROR INFO, 

CLEARING "SEC XMIT" FAILED TO SET "DATA 

SET INT, (NOTE THAT REFERENCING RCSR 

CLEARS "DATA SET INT" 
RESULT IN RCSR S/b = 000000 
"SEC XMIT" AWD "SEC PEC" CLEAR ? 
I<BR IF YES> 
GO SETUP ERROR INFO 

"SEC XMIT" OR "SEC REC" FAILED TO CLEAR 
OR REFERENCING RCSR FAILED TO CLEAR "DATA SET I^T" 
«4t' »'»#««»««*«•»« »««« »#«■»«»«««»«■««« 
AN ASSERT "CLR TO SEND" AND "CAR DEX" 
##*#»#♦»»#»»#»»«»##■«■*»»»#**»*#»» 

APE WE TESTIfiG /C OR /D MODEL? 

j<fiRANCH IF yES> 

REGAOR = RCSR ADR 

INIT RCSR TO 000000 

RESULT IN RCSR S/B = 130002 

SET "OTR" BIT 

DID "DATA SET iNT" SET ?? 

><8P IF YES> 

GO SET UP ERROR INFO, 

"DATA SET INT" FAILED TO SET - 

NOTE! THE REFERENCE TO RCSR ABOVE WILL 

^ILL UNCONDITIONALLY CLEAR RCSR HIT 15. 

RESULT IN RCSR S/B = 30002 

"DTP", "CLR TO SEND", AND "CAR DET" ALLSET 

)[<BP IF ALL SET> 

GO SET UP ERROR IN^^O 

"DTP", "CLR TO SEND" OR "CAR DET" HAILED 

TO SET UR "DATA SET INT" FAILED TO CLEAR 

RESULT IN RCSR S/B = 100000 

NOW CLEAR "DTP" 

DID "DATA SET InT" SET ?? 

><RR IF YES> 

GO SETUP ERROR INFO 

"DATA SET INT" FAILED TO SET WHEN "DTR" 

WENT TO A ZERO, 

RESULT IN PCSR S/B = 000000 

DIP ALL BITS CLEAR?? 

f<HR IF YtS> 
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'DTR" CAN ASSERT "CLR 10 SEND" 



AND "CAP DET" 



1026 


004414 


004767 


007432 


1027 


004420 


104002 




1028 








1029 








1030 








1031 








1032 


004422 


000004 




1033 


004424 


032777 


010000 174506 


1034 


004432 


001023 




1035 


004434 


016702 


174750 


1036 


004440 


012704 


000040 


1037 


004444 


052712 


000040 


1038 


004450 


020412 




1039 


004452 


001403 




1040 


004454 


004767 


007372 


1041 


004460 


104002 




1042 


004462 


005004 




1043 


004464 


042712 


000040 


1044 


004470 


020412 




1045 


004472 


001403 




1046 


004474 


004767 


007352 


1047 


004500 


104002 




1048 








1049 








1050 








1051 


004502 


000004 




1052 


004504 


032777 


010000 174426 


1053 


004512 


001054 




1054 


004514 


016705 


174700 


1055 


004520 


012725 


004606 


1056 


004524 


016715 


174552 


1057 


004530 


00500S 




1058 


004532 


005067 


174706 


1059 


004536 


005004 




1060 


004540 


016702 


174644 


1061 


004544 


052712 


000040 


1062 


004550 


052712 


000002 


1063 


004554 


005767 


174664 


1064 


004560 


001016 




1065 


004562 


005305 




1066 


004564 


001373 




1067 


004566 


004767 


007260 


1068 


004572 


005012 




1069 


004574 


012767 


004604 174442 


1070 


004602 


104002 




1071 


004604 






1072 


004604 


000417 




1073 


004606 


00S012 




1074 


004610 


005167 


174630 


1075 


004614 


000002 




1076 


004616 


032712 


100000 


1077 


004622 


001003 




1078 


004624 


004767 


007222 


1079 


004630 


104002 




1080 


004632 


020412 




1081 


004634 


001403 





JSR PC,SUER2 
EPPOR+2 



"CAR DET" FAILED 



BIT 


#Swl2,0SMR 


BNE 


TST17 


MOV 


DLRCSR,R2 


MOV 


#40#B4 


BIS 


#BIT5,(R2) 


CMP 


R4,(R2) 


BEO 


IS 


JSR 


PC,SUER2 


ERROR+2 




CLR 


R4 


BIC 


#BIT5,(R2) 


CMP 


R4,(R2) 


BEQ 


TST17 


JSR 


PC,SUEB2 


ERBOR+2 





;G0 SET UP FPROR InFO 
.npxR«,"CLR TO SEND" OR 
;T0 CLEAR PROPERLY 
I »#««»»**»«**»»«*»«««»«*#»•»**»»»»»»**#**«»#*»»****«»*«*»«»*»»»«#* 
l»TEST 16 TEST THAT "DATA SET INT ENAB" CAN SET AND CLEAR 
J I #»#««»*»■»*#»»*»»»*»***»»*««*■»«»**»**#»*»*»*#**»#»♦« »»»«»»»»##•»« 
TST16I SCOPE 

;ARE''WE TESTING /C OR /D mqdEL? 
;><BRANCH IF YES> 
jREGADP s KCSR ADR 
;R£SULT IN RCSR S/b = 000040 
;SET THE "DATA SET I.E." BIT 
;D1D IT SET OK ?? 
;;<BR IF YES> 
jGO SET UP ERROR TNFO 
;"DAT SET I, E," FAILED TO SET 
iSt CLR R4 ;MAKE S/B DATA s 000000 

jNOw CLEAR THE "DATA SET I.E." BIT 

;DID IT CLEAR OK ?? 

;j<BR IF YES> 

;G0 SET UP ERROR INFO. 

;"DATA SET I.E." FAILED TO CLEAR 

|»TEST 17 TEST THE "DATA SET I.E." CAN CAUSE A RCVR INTR 

I }»»#»##«»*«»»*»*»#*##»#»»»#*«•»#»*»#»»#»«*###■»###»*##«#»**»*»#*»* 

TST17I SCOPE 

jARE WE TESTING A /C OR /D MODEL? 

n<BPANCH IF YES> 

;GET THE VECTOR ADDR 

;G0 TO 3$ ON RCVR I^TR, 

;AT LEVEL 4 

fINIT INTR, TIMER 

;INIT SOFTWARE FLAG 

jRESULT IN RCSR S/B = AFTER INTR, 

jREGADP 3 RCSR ADR 

ySET THE "DATA SET I.E." BIT 

jNOW SET "DTR" TO GEN INTR, 

ISI TST INTFLG ?DID INTR OCCUR YET ?? 

;BR IF YES 
jCOUNT THE TIMER 
jBR IF NO TIMEOUT 
iGO.SET UP ERROR INFO 
;TURN IT ALL OFF 
;COME BACK TO 2$ IN ALL CASES 
;"DATA SET" INTR FAILED TO OCCUR 



2Sl 
3Si 



BIT 


»SW12,@SWR 


BNE 


TST20 


MOV 


DLVECT,P5 


MOV 


#3S#(R5)+ 


MOV 


DLPP1,(R5) 


CLP 


R5 


CLR 


INTFLG 


CLR 


R4 


MOV 


DLPCSR,R2 


BIS 


#BIT5,(R2) 


BIS 


»BIT1,CR2) 


TST 


INTFLG 


BNE 


4$ 


DEC 


B5 


BNE 


18 


JSP 


PC,SUER2 


CLP 


(R2) 


MOV 


#28f8ESCAPE 


EPROR+2 




BP 


TST20 


CLR 


(R2) 


COM 


INTFLG 


RTI 




BIT 


#BIT15,CR2) 


BNE 


5$ 


JSP 


PC,SUER2 


EPROR+2 




CMP 


R4,(R23 


BEQ 


TST20 



m. 



;f<GO TO NEXT TEST> 

jZERQ THE PCSR 

jSET THE SOFTWARE FLAG 

jPETUPN TO SENDER 

;DID "DATA SET INT" GET SET BY INTR, SERVICE ?? 

n<8R IF YES> 

jGO SET UP ERROP INFO 

iDATA SET INTR, NOT SERVICED PROPERLY 

jALL BITS IN PCSR CLEAR ?? 

n<BR IF yEs> 



) 
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JSR PC,SUER2 
ERROB+2 

l*TEST 20 TEST THAT THE » 
> J »*»#»#»**#»#«■«.##«»«##«#»*<*##* 
TST201 SCOPE 



1082 


004636 


004767 


007210 


loaa 


004642 


104002 




1084 








1085 








1086 








1087 


004644 


000004 




1088 


004646 


032777 


010000 


1089 


004654 


001024 




1090 


004656 


012704 


000201 


1091 


004662 


016702 


174526 


1092 


004666 


052712 


000001 


1093 


004672 


020412 




1094 


004674 


001403 




1U95 


004676 


004767 


007150 


1096 


004702 


104002 




1097 


004704 


012704 


000200 


1098 


004710 


042712 


oooooi 


1099 


004714 


020412 




1100 


004716 


001403 




1101 


004720 


004767 


007126 


1102 


004724 


104002 




1103 








1104 








1105 








1106 








1 107 








1108 


004726 


000004 




1 J09 


004730 


012704 


000200 


1110 


004734 


016702 


174454 


nil 


004740 


052712 


000001 


1112 


004744 


000005 




1113 


004746 


020412 




1114 


004750 


001403 




1115 


004752 


004767 


007074 


1116 


004756 


104002 




1117 









CAN CAUSE A BCVP INTR 

;G0 SET UP ERROR INFO 

jINTR, SERVICE FAILED TO CLEAR RCSB 

BREAK" BIT CAN BE SET AND CLEARED 

BIT #SW12#0SWR ;ARE WE TESTING /C OB /D MODEL? 

BNE TST21 }J<BRANCH IF YES> 

MDV #201»R4 jRESULT S/B a 201 IN XCSB 

MOV DLXCSR»R2 >SET UP REGADR 

BIS #B1T0,'(P2) fSET THE "BREAK" BIT 

CMP R4,(R2) ;D1D IT SET PROPERLY ?? 

BEQ 1$ ;f<BR IF YES> 

JSR PC,SUEB2 ;G0 SET UP ERROR INFO, 

ERBOR+2 ; "BREAK" BIT FAILED TO SET PROPERLY 

MOV #200, R4 JRESULT S/B a 200 Iti XCSB 

BIC #BIT0,(R2) jCLEAR THE "BREAK" BIT 

CMP H4,(R2) ;DID IT CLEAR PROPERLY ?? 

BEQ TST21 n<BR IF YES> 

JSR PC,SUER2 jGO SET UP ERROR INfO 

EPR0R42 ; "BREAK" FAILED TO CLEAR PROPERLY 



}»TEST 
I I »»««« 
TST2l{ 



21 

SCOPE 

MOV 

MOV 

BIS 

RESET 

CMP 

BEQ 

JSR 

ERBOB 



TEST THAT A "RESET" CLEARS THE "BREAK" BIT 



«200,R4 ;RKSULI S/B = 200 

DLXCSR,R2 ?SET UP REGADR 
#BIT0,(R2) ;SET THE "BREAK" BIT 

;CLEAP IT WITH A "RESET" 
R4,(R2) JDID IT CLEAR ?? 

TST22 ; ;<BR IF YES> 

PC,SUEP2 ;G0 SET UP ERROR INFO, 

yPESET INSTP, FAILED TO CLEAR "BREAK" 
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1118 










J •«»»»#*»###»##**»^#####iHHHj#. 


1119 










;*TEST 


22 


TEST TO TURN , 


1120 










n*»*»* 


!■»»#»»«»» 




1121 


004760 


000004 






TST22! 


SCOPE 




1122 


004762 


012767 


000001 


174252 




MOV 


»1,$TIMES 


1123 


004770 


004767 


007212 






JSR 


PCSUVEC 


1124 


004774 


005067 


174430 






CLR 


BTRY 


1125 


005000 


012767 


014362 


174430 


ISl 


MOV 


#LD0UT1,LD0UT 


1126 


005006 


004767 


007222 






JSR 


PC, PRIME 


1127 


005012 


005767 


174404 




2$i 


TST 


XFLGO 


1128 


005016 


001040 








BNE 


5S 


1129 


005020 


005767 


174400 






TST 


RFLGO 


1130 


005024 


001053 








BNE 


7S 


1131 


005026 


005767 


174374 






TST 


RFLGl 


U32 


005o32 


001065 








BNE 


9$ 


1133 


005034 


022767 


022260 


174372 




CMP 


#BUFEND,IPTR 


1134 


005042 


001003 








BNE 


3$ 


1135 


005o44 


004767 


007456 






JSR 


PCCHKDAT 


1136 


005050 


000500 








BR 


TST23 


1137 


005052 


005367 


174362 




3Sl 


DEC 


TIMRI 


1138 


005056 


001355 








BNE 


2S 


1139 


005060 


005367 


174356 






DEC 


TIMR2 


1140 


005064 


001352 








BNE 


2$ 


1141 


005o66 


042777 


OOOIOO 


174314 




BIC 


n00,9DLBCSR 


1142 


005074 


042777 


000104 


174312 




BIC 


#l04,eDLXCSR 


1143 


005102 


104401 


016342 






TYPE 


,XMSGl 


1144 


005106 


012767 


005116 


174130 




MOV 


#4S,SESCAPE 


1145 


005114 


104000 








ERROR 




1146 


005116 








4$: 






1147 


005116 


000455 








BR 


TST23 


1148 


005120 


016701 


174264 




5S! 


MOV 


DLRCSR,Pl 


1149 


005124 


016702 


174264 






MOV 


DLXCSR,R2 


1150 


005130 


011203 








MOV 


(R2)#B3 


1151 


005132 


012704 


000204 






MOV 


#204, P4 


1152 


005136 


004767 


006736 






JSR 


PC,SUERB1 


1153 


005142 


012767 


005152 


174074 




MOV 


#6$,$ESCAPE 


1154 


005150 


104002 








EPROR+2 




1155 


005152 








6SI 






1156 


005152 


000437 








BR 


TST23 


1157 


005154 


016701 


174230 




7SI 


MOV 


DLRCSB,P1 


1158 


005160 


010102 








MOV 


R1,R2 


1159 


005162 


011203 








MOV 


CR2)#R3 


1160 


005164 


012704 


000200 






MOV 


#200, R4 


1161 


005170 


004767 


006704 






JSR 


PCSUERRl 


1162 


005174 


012767 


005204 


174042 




MOV 


«8$,$ESCAPE 


1163 


005202 


104002 








ERBOR+2 




1164 


005204 








8$! 






1165 


005204 


000422 








BR 


TST23 


1166 


005206 


016701 


174176 




9$l 


MOV 


DLPCSR,R1 


1167 


005212 


016702 


174174 






MOV 


DLRDBR,R2 


1168 


005216 


016703 


173762 






MOV 


$TMP1,R3 


1169 


005222 


004767 


006652 






JSR 


PC,SUERP1 


1170 


005226 


012767 


005236 


174010 




MOV 


#10$,SESCAPE 


1171 


005234 


IO4005 








ERROR+5 




1172 


005236 


005267 


174166 




10$| 


INC 


RTRY 


1173 


005242 


022767 


000003 


174160 




CMP 


»3,RTRY 



AROUND NULL-DEL-NULL PATTERN 

?>D0 1 ITERATION 

;G0 SET UP VECTORS 

ylMTIALIZE RETRY FLAG 

;S£T POINTER TO LOAD ROUTINE 

;G0 SET UP BUFFERS AND DEVICE 

jANY HARD XMIT ERRORS ?? 

;BB IF YES 

;ANY HABD RECEIVER ERROR ?? 

;BR IF YES 

;ANY SOFT RECEIVER ERRORS ?? 

?BR IF YES 

jRECEIVED 256, BYTES ?? 

jPR IF NOT 

jGO CHECK THE DATA PUFFERS 

;|<G0 TO NEXT TEST> 

jDEC TIMEOUT COUNTER 1 

;BR IF NO TIMEOUT 

jDEC TIMEOUT COUNTER 2 

yBR IF NO TIMEOUT 

?TURN OFF THE INTRS, 

;G0 TYPE TIMEOUT MESSAGE 
;G0 TO 4$ AFTER ERROR PRINT 
fPRINT ERROR PC 

J j<GO TO NEXT TEST> 

;PUT DEVADR IN Rl 

yPUT REGADR IN R2 

J GET THE WAS DATA 

fPUT S/B DATA IN R4 

fGO SET UP ERROR INFO 

»G0 TO 6$ AFTER PRINTING ERROR 

;TRANSMITTER FALSE INTERRUPT 

n<GO TO NEXT TEST> 

jSAVE THE DEVADR 

J SAVE THE REGADR 

fGET THE WAS DATA 

;RESULT S/B = 200 

;G0 SET UP ERROR INFO 

?G0 TO 8$ AFTER ERROR PRINT 

JRECEIVER FALSE INTERRUPT 

j}<GO TO NEXT TEST> 

;SAVE THE DEVADR 

?SAVE REGADR 

|GET CONTENTS OF ERROR RDBR 

jGO SETUP ERROR INFO 

?G0 TO lOS AFTER EBROJR PRINT 

jREPORT SOFT ERROR (PARITY, FRAMING, OR OVERRUN 

^COUNT ONE TRY 

;TBIED THREE TIMES 
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1174 O0S250 001253 



jBR ir NOT 
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1175 










1176 










1177 










1178 


005252 


000004 






1179 


005254 


012767 


000001 


173760 


1180 


005262 


004767 


006720 




1181 


005266 


005067 


174136 




1182 


005272 


012767 


014404 


174136 


1183 


005300 


004767 


006730 




1184 


005304 


005767 


174112 




1185 


005310 


001040 






1186 


005312 


005767 


174106 




1187 


005316 


001053 






1188 


005320 


005767 


174102 




1189 


005324 


001065 






1190 


005326 


022767 


022260 


174100 


1191 


005334 


001003 






1192 


005336 


004767 


007164 




1193 


005342 


000500 






1194 


005344 


005367 


174070 




1195 


005350 


001355 






1196 


005352 


005367 


174064 




1197 


005356 


001352 






1198 


005360 


042777 


000100 


174022 


1199 


005366 


042777 


000104 


174020 


1200 


005374 


104401 


016421 




1201 


005400 


012767 


005410 


173636 


1202 


005406 


104000 






1203 


005410 








1204 


0054i0 


000455 






1205 


005412 


016701 


173772 




1206 


005416 


016702 


173772 




1207 


005422 


011203 






1208 


005424 


012704 


000204 




1209 


005430 


004767 


006444 




1210 


005434 


012767 


005444 


173602 


1211 


005442 


104002 






1212 


005444 








1213 


005444 


000437 






1214 


005446 


016701 


173736 




1215 


005452 


010102 






1216 


005454 


011203 






1217 


005456 


012704 


000200 




1218 


005462 


004767 


006412 




1219 


005466 


012767 


005476 


173550 


1220 


005474 


104002 






1221 


005476 








1222 


005476 


000422 






1223 


005500 


016701 


173704 




1224 


005504 


016702 


173702 




1225 


005510 


016703 


173470 




1226 


005514 


004767 


006360 




1227 


005520 


012767 


005530 


173516 


1228 


00S526 


104005 






1229 


005530 


005267 


173674 




1230 


005534 


022767 


000003 


173666 



f*TEST 23 TEST TO TURN ARO 
TST23I SCOPE 



lOSi 



MOV 


#1,STIMES 


JSR 


PCSUVEC 


CLR 


RTRY 


MOV 


#LD0UT2»LD0UT 


JSR 


PC, PRIME 


TST 


XFLGO 


BNE 


58 


TST 


RFLGO 


BNE 


78 


TST 


RFLGl 


BNE 


9$ 


CMP 


#BUFEND,IPTR 


BNE 


3$ 


JSR 


PCCHKDAT 


BR 


TST24 


DEC 


TIMRl 


BNE 


28 


DEC 


TIMR2 


BNE 


28 


BIC 


#100,iDLRCSR 


BIC 


«104,?DLXCSR 


TYPE 


,XMSG2 


MOV 


#48»SESrAPE 


ERROR 




BR 


TST24 


MOV 


DLRCSR,R1 


MOV 


DLXCSR,R2 


MOV 


CR2)»R3 


HOV 


#204, R4 


JSR 


PCSUERRl 


MOV 


#6$,$ESCAPE 


ERROR+2 




BR 


TST24 


MOV 


DI,RCSR,R1 


MOV 


Rl,P2 


MOV 


(R2)#R3 


MOV 


»200,R4 


JSR 


PCSUERRl 


MOV 


#88#8ESCAPE 


ERROR+2 




BR 


TST24 


MOV 


DLRCSRiRl 


MOV 


DLRDBR,R2 


HOV 


$TMP1,R3 


JSR 


PCSUERRl 


MOV 


«10$»$ESCAPE 


ERROR4.5 




INC 


RTRY 


CMP 


»3,RTBY 



UND BINARY UP COUNT PATTERN 

»#«*#»»«***»»»#»»■»*»***#«#»« S'^'SH** 

JIDO 1 ITERATION 

jGO SET UP VECTORS 

flNITIALIZE RETRY FLAG 

;SET POINTER TO LOAD ROUTINE 

;G0 SET UP PUFFERS AUD DEVICE 

;ANY HARD XMIT ERROHS ?? 

;BR IF YES 

;ANY HARD RECEIVER FRROR ?? 

;BR IF YES 

fANY SOFT RECEIVER fc;BROHS ?? 

?BR IF YES 

{RECEIVED 256, BYTES ?? 

;BR IF NOT 

;G0 CHECK THE DATA BUFFERS 

;j<GO TO NEXT TEST> 

;DEC TIMEOUT COUNTER 1 

;8R IF NO TIMEOUT 

fDEC TIMEOUT COUNTER 2 

;BR IF NO TIMEOUT 

jTURN OFF THE INTRS, 

jGO TYPE TIMEOUT MESSAGE 
jGO TO 48 AFTER ERROR PRINT 
IPRINT ERROR PC 

n<GO TO NEXT TEST> 

;PUT DEVADR IN Rl 

jPUT REGADR IN R2 

jGET THE WAS DATA 

;PUT S/B DATA IN R4 

jGO SET UP ERROR INFO 

;G0 TO 68 AFTER PRINTING ERROR 

jTHANSMITTER FALSE INTERRUPT 

f><GO TO NEXT TEST> 

>SAVE THE DEVADR 

?SAVE THE REGADR 

iGET THE WAS DATA 

jRESULT S/B = 200 

|G0 SET UP ERROR INFO 

;G0 TO 88 AFTER ERROR PRINT 

{RECEIVER FALSE INTERRUPT 

j|<GO TO NEXT TEST> 

{SAVE THE DEVADR 

I SAVE REGADR 

jGET CONTENTS OF ERROR PDBR 

fGO SETUP ERROR INFO 

;G0 TO 108 AFTER ERROR PRINT 

{REPORT SOFT ERROR (PARITY, FRAMING, 

{COUNT ONE TRY 

{TRIED THREE TIMES 



OR OVERRUN 
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J231 005542 001253 



?PP IF NOT 
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1232 










1233 










1234 










1235 


005544 


000004 






1236 


005546 


012767 


000001 


173466 


1237 


005554 


004767 


006426 




1238 


005560 


005067 


173644 




1239 


005564 


012767 


014424 


173644 


1240 


005572 


004767 


006436 




1241 


005576 


005767 


173620 




1242 


005602 


001040 






1243 


005604 


005767 


173614 




1244 


005610 


001053 






1245 


005612 


005767 


173610 




1246 


005616 


001065 






1247 


005620 


022767 


022260 


173606 


1248 


005626 


001003 






1249 


005630 


004767 


006672 




1250 


005634 


000500 






1251 


005636 


005367 


173576 




1252 


005642 


001355 






1253 


005644 


005367 


173572 




1254 


005650 


001352 






1255 


005652 


042777 


oooioo' 


173530 


1256 


005660 


042777 


000104 


173526 


1257 


005666 


104401 


016502 




J25fl 


005672 


012767 


005702 


173344 


1259 


005700 


104000 






1260 


005702 








1261 


005702 


000455 






1262 


005704 


016701 


173500 




1263 


005710 


016702 


173500 




1264 


005714 


011203 






1265 


005716 


012704 


000204 




1266 


005722 


004767 


006152 




1267 


005726 


012767 


005736 


173310 


12^8 


005734 


104002 






1269 


005736 








1270 


005736 


000437 






1271 


005740 


016701 


173444 




1272 


005744 


010102 






1273 


005746 


011203 






1274 


005750 


012704 


000200 




1275 


005754 


004767 


006120 




1276 


005760 


012767 


005770 


173256 


1277 


O05766 


104002 






1278 


005770 








1279 


005770 


000422 






1280 


005772 


016701 


173412 




1281 


005776 


016702 


173410 




1282 


006002 


016703 


173176 




1283 


006006 


004767 


006066 




1284 


006012 


012767 


006022 


173224 


1285 


006020 


104005 






1286 


006022 


005267 


173402 




1287 


006026 


022767 


000003 


173374 



I*TEST 24 TEST TO TURN 
TST24I SCOPE 



AROUND BINARY DOWN COUNT PATTERN 



MOV 

JSR 

CLR 

MOV 

JSR 

TST 

BNE 

TST 

BNE 

TST 

BNE 

CMP 

BNE 

JSR 

BR 

DEC 

BNE 

DEC 

BNE 

BIC 

BIC 

TYPE 

MOV 

ERROR 

BR 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

ERROR+2 

BR 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

ERROR+2 

BR 

MOV 

MOV 

MOV 

JSR 

MOV 

ERROR+5 

INC 

CMP 



»1,STIMES 

PCSUVEC 

RTRY 

»LD0UT3,LD0UT 

PC, PRIME 

XFLGO 

5$ 

RFLGO 

7$ 

RFLGl 

9$ 

#BUFEND,IPTR 

3$ 

PCCHKDAT 

TST25 

TIMRl 

2$ 

TIMR2 

2$ 

«100,iDLRCSR 

»104,9DLXCSR 

,XMSG3 

#4$,$ESCAPE 



TST25 

DLRCSRyRl 

DLXCSR,R2 

(R2}rR3 

#204, R4 

PC,SUERR1 

#6S,$ESCAPE 



TST25 

DLRCSR,R1 

R1,R2 

(R2)»R3 

#200, R4 

PCSUERRl 

#8SfSESCAPE 



TST25 

DLRCSR,R1 

DLRDBR,R2 

STMPl,R3 

PC,SUERR1 

#10$,$ESCAPE 



RTRY 
#3, RTRY 



JjDO 1 ITERATION 

;G0 SET UP VECTORS 

UNITIALIZE RETRY FLAG 

JSET POINTER TO LOAD ROUTINE 

jGO SET UP BUFFERS AND DEVICE 

;ANY HARD XMIT ERRORS ?? 

}BR IF YES 

;ANY HARD RECEIVER KRROR ?? 

jBR IF YES 

;ANY SOFT RECEIVER ERRORS ?? 

;BR IF YES 

jRECEIVED 256, BYTES ?? 

jBR IF NOT 

^GO CHECK THE DATA BUFFERS 

n<GO TO NEXT TEST> 

?DEC TIMEOUT COUNTER 1 

;BR IF NO TIMEOUT 

;DEC TIMEOUT COUNTER 2 

;BR IF NO TIMEOUT 

{TURN OFF THE INTRS. 

J GO TYPE TIMEOUT MESSAGE 
;G0 TO 4$ AFTER ERROR PRINT 
jPRINT ERROR PC 

n<GO TO NEXT TEST> 

?PUT DEVADR IN Rl 

;PUT REGADR IN R2 

jGET THE WAS DATA 

jPUT S/B DATA IN R4 

?G0 SET UP ERROR INFO 

;G0 TO 6S AFTER PRINTING ERROR 

^TRANSMITTER FALSE INTERRUPT 

;><G0 TO NEXT TEST> 

ISAVE THE DEVADR 

;SAVE THE REGADR 

jGET THE WAS DATA 

{RESULT S/B a 200 

jGO SET UP ERROR INFO 

{GO TO 8S AFTER ERROR PRINT 

{RECEIVER FALSE INTERRUPT 

{{<G0 TO NEXT TEST> 

{SAVE THE DEVADR 

{SAVE REGADR 

{GET CONTENTS OF ERROR RDBR 

{GO SETUP ERROR INFO 

{GO TO 109 AFTER ERROR PRINT 

{REPORT SOFT ERROR (PARITY, FRAMING, OR OVERRUN 

{COUNT ONE TRY 

{TRIED THREE TIMES 
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1286 006034 001253 
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;BR IF HOT 
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1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 



006036 
006040 
006046 
006052 
006056 
006064 
006070 
006074 
006o76 
006102 
006104 
006110 
006U2 
006120 
006122 
006126 
006132 
006136 
006140 
006144 
006146 
006154 
006162 
006166 
006174 
006176 
006202 
006206 
006212 
006214 
006220 
006224 
006232 
006234 
006240 
006244 
006246 
006250 
006254 
006260 
006266 
006270 
006274 
006300 
006304 
006310 
006314 
006322 
006324 
006330 
006336 
006340 



000004 
012767 
004767 
005067 
012767 
004767 
005767 
001042 
005767 
001056 
005767 
001071 
022767 
001004 
004767 
000167 
005367 
001354 
005367 
001351 
042777 
042777 
104401 
012767 
104000 
000167 
016701 
016702 
011203 
012704 
004767 
012767 
104002 
000167 
016701 
010102 
011203 
012704 
004767 
012767 
104002 
000167 
016701 
016702 
016703 
004767 
012767 
104005 
005267 
022767 
001247 
000167 



173276 

000100 
000104 
016565 
006176 

001742 
173202 
173202 

000204 
005654 
006234 

001704 
173144 



000200 
005620 
006270 

001650 
173110 
173106 
172674 
005564 
006324 

173100 
000003 



173174 
173352 



000001 
006134 
173352 
014460 
006144 
173326 

173322 



022260 173314 

006400 
002012 
173302 



173234 
173232 



173050 



172722 
173072 



j«TEST 25 

I }#»#««**»»»#»# 

TST25I SCOPE 

MOV 

JSR 

CLP 
l$t MOV 

JSR 
281 TST 

BNE 

TST 

BNE 

TST 

BNE 

CMP 

BNE 

JSR 

JMP 
3S| DEC 

BNE 

DEC 

BNE 

BIC 

BIC 

TYPE 

MOV 

ERROR 

JMP 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

ERROR+2 

JMP 

MOV 

MOV 

HOV 

MOV 

JSR 

MOV 

ERROR+2 

JMP 

MOV 

MOV 

MOV 

JSR 

MOV 

ERROR+5 

INC 

CMP 

BNE 

JMP 



TEST TO TURN AROUND WORST CASE PATTERN 



4St 

581 



6$i 
781 



881 
981 



#1,STIMES 

PCSUVEC 

RTRY 

»LD0UT4#LD0UT 

PC, PRIME 

XFLGO 

58 

RFLGO 

78 

RFLGl 

98 

#BUFEND,IPTR 

38 

PCCHKDAT 

SEOP 
TIMRI 
28 

TIMP2 
28 

#lOO,0DliRCSR 
#104,9DLXCSR 
rXMSG4 
«48#SESCAPE 

8E0P 

DLRCSRfRl 

DLXCSR,R2 

(P2)#R3 

#204, R4 

PC,SUERR1 

#68»8ESCAPE 

8EDP 

DLRCSR,R1 

R1,P2 

CR2)»R3 

#200, R4 

PCSUERRl 

#88»8ESCAPE 

8E0P 

DLRCSRrRl 

DLRDBP,R2 

8TMP1,R3 

PCSUERRl 

«108,8ESCAPE 

RTRY 
#3,BTPY 
18 
SEOP 



;^D0 1 ITERATION 

;G0 SET UP VECTORS 

j^NITIALIZE RETRY FLAG 

;SET POINTER TO LOAD ROUTINE 

;G0 SET UP BUFFERS AND DEVICE 

;ANY HARD XMIT ERRORS ?? 

;BR IF YES 

;ANY HARD RECEIVER KRROR ?? 

;BP IF YES 

;ANY SOFT RECEIVER F.RRO«S ?? 

;BR IF YES 

; RECEIVED 256, BYTES ?? 

fBR IF NOT 

;G0 CHECK THE DATA BUFFERS 

jGO TO NEXT TEST 
;DEC TIMEOUT COUNTER 1 
jBR IF NO TIMEOUT 
;DEC TIMEOUT COUNTER 2 
";BP IF NO TIMEOUT 
?TURN OFF THE I^TRS, 

;G0 TYPE TIMEOUT MfcsSAGE 

jGO TO 48 AFTER ERROR PRINT 

yPRiNT ERROR PC 

jGO TO NEXT TEST 

;PUT 0EVADR IN Rl 

;PUT REGAUR IN R2 

yGET THE WAS DATA 

;PUT S/B DATA IN P4 

yGO SET UP ERROR INFO 

;G0 TO 68 AFTER PRINTING ERROR 

jTRANSMITTER FALSE INTERRUPT 

;G0 TO NEXT TEST 

jSAVE THE DEVADR 

ySAVE THE REGADR 

;GET THE WAS DATA 

;RESULT S/B a 200 

jGO SET UP ERROR INFO 

;G0 TO 88 AFTER ERROR PRINT 

^RECEIVER FALSE I"^TFRPUPT 

•GO TO NEXT TEST 

fSAVE THE DEVADR 

J SAVE REGADR 

jGET CONTENTS OF ERROR RDBR 

I GO SETUP ERROR INFO 

jGO TO 108 AFTER ERROR PRINT 

^REPORT SOFT ERROR ( PARITY, FRAMING, 

jCOUNT ONE TRY 

? TRIED THREE TIMES 

jBR IF NOT 

;G0 TO END OF PASS ROUTINE 



OR OVERRUN 
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1145 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 

137 2 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1390 
1381 
1382 

138 3 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
139J 
1392 
1393 
1394 
13^5 
1396 
1397 
139« 
139^? 
1400 



006344 
006350 
006356 
006364 
006372 
006400 



012706 
012737 
012737 
012737 
012737 
104401 



006412 
006414 
006420 
006422 
006426 
006430 



012602 
020227 
101065 
020227 
103462 
132702 



006434 001057 



006436 
006440 



006450 
006452 



006456 
006462 
006470 



006472 
006474 
006500 
006^06 
006510 
OO65I2 
006516 
006520 



010203 
142703 



006444 122703 



001100 
013066 
000340 
010746 
000340 
016700 



006404 104401 020322 



006410 104410 



001051 
010267 



016746 
012767 
005712 



000412 
004767 
012767 
104006 
022626 
012667 
000426 
012667 



176176 
175616 
000001 

000370 
000006 



171322 
006474 



005460 
006510 



171266 
171260 



THIS IS PROGRAM #2 

THE FOLLOWING USER UTILITY PROGRAM WILL ALLOWi 

A) SELECTION OF A TRANSMITTER DATA BUFFER 

B) SELECTION OF A CHARACTER FOR CONTINUOUS TRANSFER 

C) SELECTION OF AN EXPIRATION TIME IN MILLISECONDS 
BETWEEN EACH TRANSMITTER DATA BUFFER CHARACTER TRANSFER 

D) A TIGHT SCOPE LOOP LOCK ON A SPECIFIC CHARACTER 



000034 
000036 
000030 
000032 



PRG2I MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 

PRG2AI TYPE 



PDOCT 



»STACK»SP J INITIALIZE THE STACK POINTER 

#8TRAP,0#TRAPVEC ;TRAP VECTOR FOR TRAP CALLS 

#340,?#TRAPVECf2 fLEVEL 7. 

»8ERR0R»9»EMTVEC jEMT VECTOR FOR ERROR ROUTINE 

#34O,0#EMTVEC+2 iLEVEL 7 

,rR0G2M ; INDICATE THAT USER SELECTED 

; PROGRAM #2 

,LINTAD ;ASK USER FOR THE TRANSMITTER 

?DATA BUFFER ADDRESS OF THE DEVICE 
jHE WISHES TO TEST 
; ACCEPT THE ANSWER TYPED BY USER 
;ArtD STORE ON TOP OF STACK 
jCHECK TO SEE IF THE USER RESPONSE vMAS WITHIN LIMITS 

" ' ~' jGET THE ANSWER TYPED 

;IS THE NUMBER TOO HIGH? 
fIF YES - GO TO RETRY SITUATION 
;IS THE NUMBER TOO LOW? 
;IF KES - GO TO RETRY SITUATION 
jNUMBER IS IN RANGE BUT IS IT 
;0N AN EVEN BOUNDARY? 
;IF NOT GO TO RETRY SITUATION 
;CHECK TO SEE IF USER RESPONSE WAS TRULY A XHIT BUFFER REGISTER 



MOV 


(SP)+,R2 


CMP 


P2, #176176 


BHI 


REDOl 


CMP 


R2, #175616 


BLO 


REDOl 


BITB 


#BIT0iR2 



,BNE 



REDOl 



MOV 
BICB 



CMPB 



BNE 
MOV 



R2,R3 
#370, R3 



#6,R3 



REDOl 
R2,$TMP0 



;GET THE USER RFSPOf-'SF 

;MASK OFF LOrtER BYTE EXCEPT FOR 

;LEAST SIGMFICRNT DIGIT 

;WAS THE LEAST SIGNIFICANT DIGIT OF THE 

;USER RESPONSE EQUAL TO A SIX? 

•BRANCH IF NOT 

;THE TRANSMITTER ADDRESS 

; TYPED IS OK - STORE FOR 

; FUTURE USE 

;NOW CHECK TO MAKE SURE THE DEVICE IS PRESENT 

;SAVE THE TIMfCOUT VECTOR 

;SET UP TIMEOUT SERVICE ADDRESS 

I IF PRESEK'T WE WILL EXECUTE THE 

;N£XT XNSTRUCTIOlM - IF NOT 

;WE GO TO 2SI 

;BRANCH IF PRESENT 

2S; JSR PC,SUERT2 ;G0 SET UP FOR ERROR INFORMATION 

; POINT OF RETURN AFTER ERROR REPORT 
;XOBR REFERENCE CAUSED TIMEOUT 

3S! CMP (Sp) + ,(SP)'»- jCLEAN STACK FROM TIMEOUT 

; RESTORE TIMEOUT VECTOR 
;G0 TO RETRY SITUATION 

4$J MOV (SP)+,ERPVEC ;DEVICE REGISTEW IS PRESENTi 

; RESTORE TIMEOUT VECTOR 

>WE ARE NOW READY FOR THE CHARACTER TO BE TRANSMITTED, AND THE 



MOV 


ERRVEC»-(SP) 


MOV 


#2S#ERRVEC 


TST 


CR2) 


BR 


4S 


JSR 


PC,SUERT2 


MOV 


»3$,$ESCAPE 


ERROR 


♦ 6 


CMP 


(Sp) + ,(SP)-»- 


MOV 


(SP3+,ERRVEC 


BR 


REDOl 


MOV 


(SP)+,ERPVEC 
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1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 



006524 104401 020403 

006530 104410 

006532 012667 172446 

006536 104401 020511 

006542 104410 



006544 012667 
006550 116767 



006556 116777 
006564 004767 



172436 
172432 
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jDELAY TIME (IN MILLISECONDS) THAT IS TO TRANSPIRE BETWEEN 
jSUCCESSlVE CHARACTER TRANSFERS 



PRG28S TYPE 
RDOCT 



jNOTEl 



,SELCAR ;ASK USER FOR THE CHARACTER HE 

yWlSHES TO TRANSFER 
J ACCEPT THt ANSWER TYPED BY 
J USER AND STORE ON TOP OF STACK 
MOV (SP)+,$TMP1 ;GET THE ANSWER TYPED 
THE USER RESPONSE FOR THE CHARACTER WAS TO BE THE 
OCTAL ASCII EQUIVALENT OF IriE CHARACTER E.G. AalOl 



000012 l$l 



TYPE 



MOV 
MOVB 



172422 172416 



,SELDLY 



(SP)+,STMP2 
STMP2»2$ 



STMP1,0STMPO 



;ASK THE USER FOR THE DELAY 

;IN MSEC (OCTAL NO.) BETWEEN 

{CHARACTER TRANSFERS 

jACCEPT THE ANSWER TYPED BY 

;USER AND STORE ON TOP OF STACK 

;GET THE ANSWER TYPED 

jSET THE DELAY COUNT ARGUMENT 

;FOP TIMER ROUTINE 

yLOAD THE TRANSMITTER DATA 

{BUFFER WITH THE CHARACTER 

;G0 OFF TO WAIT THE SPECIFIED 
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1421 
1422 
1423 

1424 
1425 
1426 
1427 
1428 
142<5 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 



OO657O 000000 

006572 000766 

OO6574 104401 

006600 000167 



006604 
006610 
006616 
006624 
006632 
006640 



012706 
012737 
012737 
012737 
012737 
104401 



006652 
006654 
006660 
006662 
006666 
006670 



006676 
006700 



006710 
006712 



006716 
006722 
006730 



006732 
OO6734 
OO6740 
006746 



012602 
020227 
101071 
020227 
103466 
132702 



006674 001063 



010203 
142703 



006704 122703 



001055 
010267 



016746 
012767 
005712 



000412 
004767 
012767 
104006 



001232 
177600 



001100 
013066 
000340 
010746 
000340 
016744 



006644 104401 020322 



006650 104410 



176176 
175616 
000001 

000370 
000006 



171062 
006734 



005220 
006750 



jNO. OF MSEC, BEFORt; ISSUING 
;ANOTHEP CHARACTER 
2$l .WORD jTHIS IS WHERE THE DELA¥ COUNT RESIDES 

BR IS jGO BACK TO ISSUE ANOTHER CHARACTER 

REDOll TYPE »$QUES jTVPE A QUESTION MAPK(?) 

JMP PRG2A iPEITERATE THE XUBR QUESTIOM TO USER 

THIS IS PROGRAM #3 
THE FOLLOWING USER UTILITY PROGRAM WILL ALLOWj 

A) SELECTION or A TRANSMITTER DATA BUFFER 

B) SELECTION OF A CHARACTER FOR CONTINUOUS TRANSFER 
IN MAINTENANCE MODE 

C) SELECTION OF AN EXPIRATION TIME IN MILLISECONDS 
BETWEEN EACH TRANSMITTER DATA BUFFER CHSRACTER TRANSFER 

D) A TIGHT SCOPE LOOP LOCK ON 6 SPECIFIC CHARACTER 



000034 
000036 
000030 
000032 



PRG3I MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 

PRG3AJ TYPE 



RDOCT 

jCHECK TO SEE 
MOV 
CMP 
BHI 
CMP 
BLO 
BITB 

BNE 
jCHECK TO SEE 
MOV 
BICB 

CMPB 

BNE 
MOV 

|NOW CHECK TO 
MOV 
MOV 
TST 



#STACK,SP ! 
»STPAP,0«TRAPVEC 
#340,(a»TRAPVEC + 2 
#SEFROB,&»EMTVEC 
#340,fi#EMTVEC + 2 
#PR0G3M 1 

,LINTAD i 



IF USER RESPONSE WA 
(SP)+,R2 
R2, #176176 
RED02 

R2»#175616 
RED02 
#81T0,R2 

REDa2 
IF USER RESPONSE WA 
B2,R3 
#370, R3 



#6,R3 



RED02 
R2,STMP0 



JSP 
MOV 
ERROR 



MAKE SURE THE DEVIC 
ERRVEC»-(SP) 
#2SrEPBVEC 
(R2) 



4S 

PC,SUERT2 
»38»$ESCAPE 
+ 6 



INITIALIZE THE STACK POINTER 

;TBAP VECTOR FOR TRAP CALLS 

; LEVEL 7 

|EMT VECTOR FOR ERROR ROUTINE 

rLEVEL 7 
INDICATE THAT USER SELECTED 
PROGRAM »3 

ASK USER FOP THE TRANSMITTER DATA 
BUFFER ADDRESS OF THE DEVICE 
HE WISHES TO TEST 
ACCEPT THE A"JSWEP TYPED BY 
USER AND STORE ON TOP OF STACK 

WITHIN LIMITS 
GET THE ANSWER TYPED 
IS THE NUMBER TOO HIGH? 
IF YES - GO TO RETRY SITUATION 
IS THE NUMBER TOO LOW? 
IF YES - GO TO RETRY SITUATION 
NUMBER IS IN RANGE BUT IS IT 
ON AN EVEN BOU/JDAPY? 
IF NOT - GO TO REIRY SITUATION 
S TRHLY A XDBR DBR ADDRESS 
GET THE USER RESPO-'^^SE 
MASK OFF LOWER BYTE EXCEPT FOR 
LEAST SIGMFIC5NT DIGIT 

WAS THE LEAST SIGNIFICANT DIGIT Of THE 
USER RESPONSE EQUAL TO A TWO? 
BRANCH IF NOT 

THE TRANSMITTER ADDRESS TYPED IS 
OK - STORE FOR FUTURE USE 
E IS PRESENT 
SAVE THE TIMEOUT VECTOR 
SET UP TIMEOUT SERVICE ADDRESS 
IF PRESENr WE WILL EXECUTE THE 
NEXT INSTRUCTION - IF MOT WE 
GO TO 2S! 
BRANCH IF PRESENT 
GO SET UP FOR ERROR INFORMATION 
POINT nF RETURN AFTER FRROR REPORT 
XDBR REFERENCE CAUSED Tli^EOUT 
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1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
I5t3 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 



006750 022626 

006752 012667 

006756 000432 

006760 012667 



006776 104401 



007002 104410 



007004 012667 
007010 162702 



007014 052712 
007020 116767 



007026 116777 
007034 004767 



007040 000000 

007042 000764 

007044 104401 

007050 000167 



007054 
007060 



007102 
007110 



012706 
012737 



007066 012737 
007074 012737 



012737 
104401 



171026 
171020 



006764 104401 020403 
006770 104410 
006772 012667 



172206 
020511 



172176 
000002 



000004 
172162 



172152 
004500 



001252 
177570 



OOIIOO 
013066 
000340 
010746 
000340 
017010 



007114 104401 020322 



007120 104410 



3SI CMP (Sp)+,(SP)+ jCLEAN STACK FROM TIMEOUT 
MOV (SP) + ,ERRVEC jRESTORE TliviEOUT VECTOR • 
BR PED02 ;G0 TO RETRY SITUATION 

4St MOV (SP)+,ERRVEC jDEVICE REGISTER IS PRESENTi 

; RESTORE TIMEOUT VECTOR 

I WE ARE NOW READY FOR THE CHAPJ^CTFR TO BE TRA^JSMITTED, AND THE 

»DELAY TIME (IN MILLISECONDS) THAT IS TO TRANSPIRE i^ETWEEN SUCCESSIVE 

jCHARACTER TRANSFERS 



PRG3Bt 



TYPE 
RDOCT 



,SELCAR 



(SP)+,$TMP1 



ASK USER FOR THE CHARACTER 

HE WISHES TO TRANSFER 

ACCEPT THE ANSWER TYPED BY USER 

AND STORE ON TOp OF STACK 

GET THE ANSWER TYPED 



fNOTEl 



000012 
172146 



000034 
000036 
000030 
000032 



THE USER RESPONSE FOR THE CHARACTER aAS TO BE THE 
OCTAL ASCII EQUIVALENT OF THE CHARACTER E.G. B=102 
TYPE ,SELDLY ;ASK THE USER FOR THE DELAY 

;IN MSEC (OCTAL NO,) BETWEEN 
jCHARACTER TRANSFERS 
RDOCT jACCEPT THE ANSWER iYPED BY 

jUSER AND STORE ON TOP OF STACK 

;GET THE ANSWER TYPED 

;GET THE CORRESPOMDInG XCSR 

jADDRESS FOR TRANSMITTER UNDER- 

;G0ING TEST 

;SET MAINTENANCE BIX IN XCSR 

;SET THE DELAY COUNT ARGUMENT 

;FOR TIMER ROUTINE 

;LOAO THE TRANSMITTER DATA BUFFER 

jWITH THE CHARACTER 

;G0 OFF TO WAIT THE SPECIFIED 

;N0, OF MSEC, BEFORE ISSUING 

•ANOTHER CHARACTER 

;THIS IS WHERE THE DELAY COUNT RESIDES 

;G0 BACK TO ISSUE ANOTHER CHARACTER 

;TYPE A QUESTION MARK(?) 

jREITERATE THE XDPR QUESTION TO 

jUSER 

THIS IS PROGRAM 04 

THE FOLLOWING USER UTILITY PROGRAM WILL ALLOWi 

A) SELECTION OF A TRANSMITTER DATA BUFFER 

B) SELECTION OF A SINGLE CHARACTER TO BE SENT, RECEIVED 
AND CHECKED WITH MAINTENANCE BIT SET 



^INITIALIZE THE STACK POINTER 

fTRAP VECTOR FOR TRAP CALLS 

I LEVEL 7 

|EMT VECTOR FOR ERROR ROUTINE 

ILEVEL 7 
; INDICATE THAT USER SELECTED 
rPROGRAM #4 

;ASK USER FOR THE TRANSMITTER 
jDATA BUFFER ADDRESS OF THE 
DEVICE HE WISHES TO TEST 



MOV 
SUB 


(SP)+, 

#2,R2 


STMP2 


BIS 
MOVB 


»BIT2. 
$TMP2i 


(R2) 
2$ 


MOVB 


STMPl, 


9$TMP0 


JSP 


PC, DELAY 


.WORD 
BR 

TYPE 
JMP 




1$ 

,SOUES 

PPG3A 



MOV 


#STACK,SP 


MOV 


«6TRAP,P#TRAPVEC 


MOV 


»340,9«TRAPVECt2 


MOV 


»8EBR0R,i#EMTVEC 


MOV 


#340,@»EMTVEC4-2 


TYPE 


,PR0G4M 



PRG4AI TYPE 



,LINTAD 



jACCEPT THE ANSWER TYPED BY 
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III 



1533 








1534 








1535 


007122 


012602 




1536 


007124 


020227 


176176 


1537 


007130 


101136 




1538 


007132 


020227 


175616 


1539 


007136 


103533 




1540 


0071 40 


132702 


000001 


1541 








1542 


007144 


001130 




1543 








1544 


007146 


010203 




1545 


007 1 50 


142703 


000370 


1546 








1547 


007154 


122703 


000006 


1548 








1549 


007160 


0O1122 




1550 


007i62 


010267 


172014 


1551 








1552 








1553 


007166 


016746 


170612 


1554 


007172 


012767 


007204 170604 


1555 


007200 


005712 




1556 








1557 








1558 


007202 


000412 




1559 


007204 


004767 


0O4750 


1560 


007210 


012767 


0U7220 172026 


1561 


007216 


104006 




1562 


007220 


022626 




1563 


007222 


012667 


170556 


1564 


007226 


000477 




1565 


0^7230 


012667 


170550 


1566 








1567 


007234 


104401 


020604 


1568 








1569 








1570 








1571 


007240 


104410 




1572 








1573 


007242 


012667 


171740 


1574 








1575 


007246 


104401 


020403 


1576 








1577 


007252 


104410 




1578 








1579 


007254 


012667 


171724 


1580 








1581 








1582 








1583 


007260 


104401 


017233 


1584 








1585 


007264 


104411 




1586 








1587 


007266 


012600 




1588 


007270 


020027 


000010 



jUSER AND STORE ON TOP OF STACK 
fCHECK TO SEE IF THE USER RESPONSE tlhS WITHIN LIMITS 

;GET THE ANSWER TYPED 
;IS THE NUMBER TOO HIGH? 
;IF YES - GO TO RETRY SITUATION 
;IS THE NUMBER TOO LOW? 
fIF YES - GO TO RETRY SITUATION 
jNUMBER IS IN RANGE BUT IS IT 
;0N AN EVEN BOUNDARY? 
BNE RED03 ; IF NO - GO TO RETRY SITUATION 

>CHECK TO SEE IF USER RESPONSE WAS TRULY A XMIT BUFFER REGISTER 



MOV 


{SP)+,R2 


CMP 


R2»#i76176 


BHI 


RED03 


CMP 


R2, #175616 


PLO 


RED03 


81T8 


»BIT0,R2 



MOV 

eicp 



R2,R3 
#370, R3 



BNE 


RED03 


MOV 


R2,STMP0 


:CK TO 


MAKE SURE THE 


MOV 


ERRVEC,-(SP) 


MOV 


#2S»ERRVEC 


TST 


(R2) 


BP 


4$ 


JSH 


PC,SUERT2 


MOV 


#3$,8ESCAPE 


ERROR 


+ 6 


CMP 


(SP)+,(SP)+ 


MOV 


(SP)+,ERRVEC 


BR 


RED03 


MOV 


(SP)+,ERRVEC 



MOV 



(SP)-»-,$TMP2 



;GET THE USER RESpQNSE 

jMASK OFF LOWER BYTF EXCEPT FOR 

LEAST SIGNIFICANT DIGIT 

WAS THE LEAST SIGNIFICANT DIGIT OF THE 

USER RESPONSE EQUAL TO A SIX? 

BRANCH IF NOT 

THE TRANSMITTER ADDRESS TYPED 

IS OK - STORE FOP FUTURE USE 

E IS PRESENT 

SAVE THE TIMEOUT VECTOR 

SEX UP TIMEOUT SERVICE ADDRESS 

IF PRESENT V*E WILL EXECUTE THE 

NEXT INSTRUCTION - IF NOT WE 

GO TO 2$I 

BRANCH IF PRESE^T 

GO SFT UP FOP ERROR INFORMATION 

POINT OF PETUR-J AFTER ERROR REPORT 

XDBR REFERENCE CAUSED TIMEOUT 

CLEAN STACK FROM TIMEOUT 

RESTORE TIMEOUT VECTOR 

GO TO RETRY SITUATION 

DEVICE REGISTER IS PRESENTI 

RESTORE TIMEOUT VECTOR 
J ASK THE USFR IF HE DESIRES SOME 
;RAND0«1 HO, OF MSEC. WAIT TIME 
jBEFOHE CHECKING FOP XCSR DONE 
;FLRG 

• ACCEPT THE ANS'-^EH TYPED BY USER 
jhND STORE ON TOP OF STACK 
;GET THE ANSWER TYPED 



jWE APE NOW READY FOR THE CHARACTER TO BE TRANSMITTED 
PRG4BI TYPE ,SELCAR ;ASK USFR FOR THE CHARACTER HE 

; WISHES TO TRANSFER 

PDOCT ;ACCEPT THE ANSWER TYPED RY USER 

;AND STORE ON TOP OF STACK 

MOV (SP)+#$TMPl jGET THE ANSwER TiPdD 
•NOTE! THE USER RESPONSE FOR THE CHARACTER WAS TO bE THE OCTAL 
J ASCII EQUIVALENT OF THE CHARACTER E.G. C=103 

I 
PRG4C! TYPE# LENGTH >ASK USER FOR THE CHARACTER LENGTH 

;FOR WHICH HIS DEVICE IS SET 

RDDEC ; ACCEPT THE ANSWER TYPED BY USER 

jCHECK TO SEE IF USER RESPONSE WAS WITHIN LIMITS 

HOV (SP)+,P0 ;GET THE ANSkER TYPED 

CMP R0,I8, ;IS THE NUMBER TOO HIGH? 
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1589 
1590 
159J 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 



007274 
007?76 
007302 
007304 

007310 
007316 
007324 
007330 
007332 
007336 

007342 
007346 
007350 

007356 

007364 

007370 
007374 
007376 

007404 

007412 

007420 

007424 
007426 
007432 
007436 



101060 
020027 
103455 
010067 

016767 
162767 
005767 
001402 
004767 
004767 

104401 
104000 
052777 

016777 

004767 

104401 
104000 
016767 

162767 

017767 

004767 

000737 
104401 
000167 
104401 



007446 
007452 
007460 
007466 
007474 
007502 



012706 
012737 
012737 
012737 
012737 
104401 



000005 

171724 

171666 
000002 
1716S^ 

004246 
004352 

017120 

000004 

171622 

004306 

017167 

171606 

00000*2 

171574 

004326 



001252 
177456 
003252 



007442 000167 177612 



001100 
013066 
000340 
010746 
000340 
017054 



OO75O6 104401 020322 
OO75I2 104410 
007514 012602 



;IF YES - GO TO RETRY SITUATION 
IS THE NUMBER TOO LOW? 
IF YES - GO TO RETRY SITUATION 
THE VALUE TYPED IS OK 
STORE FOR FUTURE USE 

171672 MOV $TMP0,STMP3 ;GET THE XDBR ADDRESS 

171664 SUB #2,STMP3 ;FOPM THE XCSR ADDRESS 

DO wE RANDOM STALL? 
BRANCH IF IT WASN'T DESIRED 
GO STALL RANDOM VALUE OF MSEC, 
GO WAIT FOR TRANSMITTER DONE 
BIT TO SET 

TYPE TRANSMITTER DONE BIT MESSAGE 
XCSR DONE BIT NEVER SET 

171632 BIS #BIT2#?STMP3 ;SET THE MAINTENANCE BIT IN THE 

TRANSMITTER CONTROL STATUS REGISTER 

171616 MOV $TMPl,@STMpO ;LOAD TRANSMITTER DATA BUFFER 

WITH SELECTED CHARACTER 
GO WAIT FOR RECEIVER DONE BIT 
TO SET 

TYPE RECEIVER DONE BIT MESSAGE 
RCSR DONE BIT NEVER SET 

171606 MOV STMP3#STMP4 ;GET THE TRANSMITTER CONTROL 

STATUS REGISTER ADDRESS 

171600 SUB #2,$TMP4 jFORM THE RECEIVER DATA BUFFER 

ADDRESS 

171574 MOV ©8TMP4,STMP5 ? STORE THE CHARACTER FROM THE 

RECEIVER BUFFER + PEST OF CONTENTS 

GO TO COMPARE EXPECTED £. RECEIVED 

DATA 

GO BACK TO ISSUE ANOTHER CHARACTER 

TYPE A QUESTION MARK(?) 

REITERATE THE XDBR OUESTION TO USER 

TYPE '7' INDICATING USER TYPED 

SOMETHING WRONG FOR CHARACTER LENGTH 

GO BACK TO REISSUE OUESTION 

I THIS IS PROGRAM «5 

I THE FOLLOWING USER UTILITY PROGRAM WILL ALLOW USER PARAMETERS 

|FQR RUNNING A BINARY COUNT IN MAINTENANCE MODE 

I 

PRG5I MOV »STACK,SP ;INITIALIZE THE STACK POINTER 
000034 MOV #STRAP,i#TRAPVEC jTRAP VECTOR FOP TRAP CALLS 

000036 MOV #340,@#TRAPVEC+2 jLEVEL 7 

000030 MOV »$ERROR,i«EMTVEC |EMT VECTOR FOR ERROR ROUTINE 

000032 MOV #340,e«EMTVEC+2 jLEVEL 7 

TYPE ,PR0G5M ; INDICATE THAT USER SELECTED 

yPROGRAM #5 
,LINTAD yASK USER FOR THE TRANSMITTER DATA 

jBUFFER ADDRESS OF THE DEVICE 
jHE WISHES TO TEST 
^ACCEPT THE ANSWER TYPED BY USER 
;AND STORE ON TOP OF STACK 
jCHECK TO SEE IF THE USER RESPONSE WAS WITHIN LIMITS 
MOV (SP)->>,R2 jGET THE ANSWER TYPED 





BHI 


RED03A 




CMP 


R0,#5. 




BLO 


RED03A 




MOV 


R0,STMPI5 




MOV 


$TMP0,STMP3 




SUB 


#2,STMP3 


ISI 


TST 


$TMP2 




BEQ 


2$ 




JSR 


PC, STALL 


2SJ 


JSR 


PCTIMETX 




TYPE 


,XDB 




ERROR 


+ 




BIS 


#BIT2,?STMP3 




MOV 


$TMP1,@STMP0 




JSR 


PCTIMERX 




TYPE 


,RDB 




ERROR 


+ 




MOV 


STMP3,STMP4 




SUB 


#2,$TMP4 




MOV 


©8TMP4,STMP5 




JSP 


PCDATCHK 




BR 


1$ 


RED03I 


TYPE 


rSQUES 




JMP 


PRG4A 


RED03At 


TYPE, 


SOUES 



PRGSAi TYPE 



RDOCT 



MAINDEC-tl-DZDLC-B MACYll 30(1046) 12-JUL-77 10lO2 PAGE 35 

DZDLCB.PIJ 06-MAY-77 10i04 f25 TEST TO TURN AROUND WOR#T CA&€ PATTERN 



1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
J700 



0075i6 
007522 
007524 
007530 
007532 



007540 
007542 



007552 
007554 



007560 
007564 
007572 



007574 
007576 
007602 
0076i0 
007612 
007614 
007620 
007622 



007626 

007632 

007634 
007636 
007642 
007644 
007650 
007652 

007656 
007662 



007670 
007676 
007704 
007710 
007716 



020227 
101152 
020227 
103547 
132702 



007536 001144 



010203 
142703 



007546 122703 



001136 
010267 



016746 
012767 
005712 



000412 
004767 
012767 
104006 
022626 
012667 
000513 
012667 



104401 

104411 

012600 
020027 
101106 
020027 
103503 
010067 

104401 
104410 



012767 
016767 
005267 
042767 
016767 



176176 
175616 
000001 

000370 
000006 



170220 
007576 



004356 
007612 



170164 
170156 



000010 
000005 
171356 
020604 



007664 012667 171316 



177777 
171322 
171316 
177400 
171304 



CMP R2, #176176 ;IS THE NUMBER TOO HIGH? 

BHI RED04 ;IF YES » GO TO RETRY SITUATION 

CMP R2, #175616 ;IS TH£ NUMBER TOO LOW? 

BLO RED04 jIF YES - ®0 TO RETRY SITUATION 

BITB #BIT0,R2 jNUM&ER IS IN RANGE BUT IS IT 

;0N AN EVEN BOUNDARY? 

BNE RED04 ;IF NOT - GO TO RETRY SITUATION 

fCHECK TO SEE IF USER RESPONSE ^AS TRULY A XMIT BUFFfep REGISTER 



R2,R3 ;G£T THE USER RESPONSE 

#370»P3 »MASK OFF LOWER BYTE EXCEPT FOR 

jLEAST SIGNIFICANT DIGIT 
#6,R3 ;WA5 THE LEAST SIGNIFICANT DIGIT OF THE 

fUSER RESPONSE EQUAL TO A SIX? 
RED04 ; BRANCH IF NOT 

R2,$TMP0 ;THE TRANMITTER ADDRESS TYPED 

;IS OK - STORE FOR FUTURE USE 
fNOW CHECK TO MAKE SURE THE DEVICE IS PRESENT 



MOV 
BICB 



CMPB 



BNE 
MOV 



MOV 
MOV 
TST 



BR 

JSR 

MOV 

ERROR 

CMP 

MOV 

BR 

MOV 



ERRVEC#-(SP) 

#2S»ERRVEC 

(R2) 



4$ 

PC,SUERT2 

#3S»$ESCAPE 

+6 

(S'P) + ,(SP) + 

(SP)+,ERRVEC 

PED04 

(SP)+,EPRVEC 



PRG5CI TYPE, 



jSAVE THE TIMOUT VECTOR 
jSET UP TIMEOUT SERVICE ADDRESS 
J IF PRESENT WE '^ILL EXECUTE THE 
jNEXT INSTRUCTION - IF ?iOT WE 
;G0 TO 2^1 
jBRi»NCh IF PRESENT 
;G0 SETUP FOR ERROR INFORMATION 
jPUINT Of RETURN /isFTER ERROR REPORT 
;XDBR REFERENCE CAUSED TIMEOUT 
J CLEAN STACK FROM TIMEOUT 
} RESTORE TIMEOUT VECTOR 
jGO TO RETRY SITUATION 
;PeVICE REGISTER IS PRESENTi 
;km THE USER IF HE DESIRES SOME 
yRA^IDOM NO, OF MSEC, wAlT TIME 
f&fFORe CHECKING XCSH DONE FLAG 
)ASK USEh FOR im CHARACTER LENGTH 

•FOR WHICH HIS DEVICE IS SET 
;Al2CiPT TH-E ANSWER TYPED bH USER 



fCHECK TO SEE IF USER RESPONSE WAS WITHIN LIMITS 



MOV 


(SP)+,RO 


Cwp 


R0,»8, 


BHI 


RED04A 


CMP 


P0,#5, 


BLO 


RED04A 


MOV 


R0,$TMP15 


TYPE 


fRSTALL 


RDOCT 





{SP)+,STMP2 



;GET THE ANSWER TYPED 

;IS THE NUMBER TOO HIGH? 

;IF YES - GO TO RETRY SITUATION 

;TS THE NUMBER TOO LOW? 

;IF YES - GO TO RETRY SITUATION 

;ThE value TYPED IS OK 

; STORE FOP FUTURE USE 

: RANDOM NO, OF MSEC, WAIT TIME 

; ACCEPT THE ANSWER TYPED BY USER 

J Mil) STORE ON TOP OF STACK 

;GET T^HE ANSWER TYPED 



jWE ARE NOW READY TO INITIALIZE THE BINARY COUNT AND GET 
|THE BINARY CHARACTER 



171326 
171322 



171310 
17J300 



MOV 
MOV 
INC 
BIC 
MOV 



»-l,$TMPll 
$TMP11,STMPJ2 
STMP12 

#177400f STMPl? 
STMPl2f STMPll 



jSET LEAD IN VARIABLE TO -1 

; STORK PREVIOUS BINARY CHARACTER 

jFLlP BINARY CHARACTER AGAIN 

;MASK TO 8 BITS 

jSTORE BINARY CHARACTER 
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1701 


007724 


016767 


171276 


171252 


1702 










1703 


007732 


016767 


171244 


171250 


1704 


007740 


162767 


000002 


171242 


1705 


007746 


005767 


171234 




1706 


007752 


001402 






1707 


007754 


004767 


003624 




1708 


007760 


004767 


003730 




1709 










1710 


007764 


104401 


017120 




1711 


007770 


104000 






1712 


007772 


052777 


000004 


171210 


1713 










1714 


010000 


016777 


171200 


171J74 


1715 










1716 


010006 


004767 


003664 




1717 


010012 


104401 


017167 




1718 


010016 


104000 






1719 


010020 


016767 


171164 


171164 


1720 










1721 


010026 


162767 


000002 


171156 


1722 










1723 


010034 


017767 


171152 


171152 


1724 










1725 


010042 


004767 


003704 




1726 










1727 


010046 


000713 






1728 










1729 


010050 


104401 


001252 




1730 


010054 


000167 


177426 




1731 


010060 


104401 


001252 




1732 










1733 


010064 


000167 


177536 




1734 










1735 










1736 










1737 










1738 










1739 










1740 










1741 










1742 










1743 


010070 


016767 


171164 


171312 


1744 










1745 


010076 


062767 


000002 


171154 


1746 










1747 


010104 


016767 


17U50 


171300 


1748 










1749 


010112 


062767 


000002 


171140 


1750 










1751 


010120 


016767 


171134 


171266 


1752 










1753 


010126 


062767 


000002 


171124 


1754 










1755 


010134 


016767 


17U20 


171254 


1756 













MOV 


8TMP12, STMPl 


161 
2SI 


MOV 
SUB 
TST 
BEQ 
JSR 
JSR 


8TMP0,STMP3 ? 
»2,STMP3 ; 
STMP2 ; 
2$ /; 
PC, STALL ; 
PCTIMETX ; 




TYPE 

ERROR 

BIS 


,XDB ; 
■♦■0 ; 
«BIT2,98TMP3 ; 




MOV 


STMPl, &$TMPO J 




JSR 
TYPE 
ERROR 
MOV 


PCTIMERX ; 
,RDB ; 
+ ; 
8TMP3,STMP4 ; 




SUB 


#2,$TMP4 ^ 5 




MOV 


§STMP4,STMP5 ; 




JSR 


PC,DATCHK ; 




BR 


PRG5B 


RED04I 
RED04AI 


TYPE 

JMP 

TYPE, 


,SQUES 

PRG5A ; 

$OUES ; 



JMP 



PRG5C 



STORE BINARY CHARACTER 

FOR FUTURE USE 

GET THE XDBR ADDRESS 

FORM THE XCSR ADDRESS 

DO WE RANDOM STALL? 

BRANCH IF IT WASN'T DESIRED 

GO STALL RANDOM VALUE OF MSEC, 

GO WAIT FOR TRANSMITTER DONE 

BIT TO SET 

TYPE TRANSMITTER DONE PIT MESSAGE 

XCSR DONE BIT NEVER SET 

SET THE MAINTENANCE BIT IN THE 

TRANSMITTER CONTROL STATUS REGISTER 

LOAD TRANSMITTER DATA BUFFER 

WITH SELECTED CHARACTER 

GO WAIT FQR RECEIVER DONE BIT TO SET 

TYPE RECEIV€R DONE BIT MESSAGE 

RCSR D-ON^E BIT NEVER SET 

GET THE TRANSMITTER CONTROL 

STATUS REGISTER ADDRESS 

FORM THE RECEIVER DATA BUFFER 

ADDRESS 

STORE THE CHARACTER FROM THE 

RECEIVER BUFFER + REST OF CONTENTS 

GO TO COMPARE EXPECTED & RECEIVED 

DATA 

GO BACK TO ISSUE AMQTHER BINARY 

CHARACTER 

TYPE A QUESTION MARK(?) 

GO BACK TO REITERATE XDBR QUESTION 

TYPE '?' INDICATING USER TYPED 

SOMETHING WRONG FOR CHARACTER LENGTH 

GO BACK TO REISSUE QUESTION 



|THIS ROUTINE WILL SET UPi 

f RCSR - RECEVER STATUS REGISTER 

I RBUF - RECEIVER BUFFER REGISTER 

J XCSR » TRANSMITTER STATUS REGISTER 

I XBUF « TRANSMITTER BUFFER REGISTER 

lINITIALLY, IN RESPONSE TO USER REPLY TO 1ST DEVICE HE WANTS 

fTESTED, AND THEREAFTER, AT THE END OF A PROGRAM TO CYCLE THRU 

I ALL DEVICES FOR MULTIPLE DEVICE TESTING (IF REQUIRED) 



DLADDRl MOV 



DLBASE,DLRCSR 
#2,DLBASE 



DLBASE,DLRDBR 
«2,DLBASE 



DLBASE,DLXCSR 
#2,DLBASE 



DLBASE,DLXDBR 



; STORE RECEIVER STATUS REGISTER 

;0F CURRENT DEVICE 

;FORM RECEIVER BUFFER REGISTER 

jOF CURRENT DEVICE 

> STORE RECEIVER BUFFER REGISTER 

;0K CURRENT DEVICE 

jFORM TRANSMITTER STATUS REGISTER 

yOF OF CURRENT DEVICE 

iSTORE TRANSMITTER STATUS REGISTER 

;0F CURRENT DEVICE 

;FOR TRAHSMITTER BUFFER REGISTER 

>0F CURRENT DEVICE 

fSTORE TRANSMITTER BUFFER REGISTER 

jOF CURRENT DEVICE 
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HTS ■ PC jHETUPN 

.SBTTL END OF PASS ROUTINE 

l»INCREMENT THE PASS NUMBER CSPASS) 

l»TYPE "END PASS «XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 

|»IF THERES A MONITOR GO TO IT 

f»ir THERE ISN'T JUMP TO RESTRT 



1757 


010142 


000207 




1758 








1759 








1760 








1761 








1762 








1763 








1764 








1765 








1766 








1767 


010144 






1768 








1769 








1770 








1771 








1772 


010144 


000004 




1773 


010146 


105767 


171120 


1774 


010152 


001501 




1775 








1776 


010154 


005767 


171114 


1777 


010160 


001011 




1778 


010162 


104401 


020110 


1779 








1780 








1781 








1782 


010166 


OOOOOO 




1783 


010170 


005067 


171076 


1784 


010174 


005067 


171056 


1785 


010200 


000167 


171566 


1786 








1787 








1788 


010^04 


062767 


000010 


1789 








1790 








1791 


010212 


062767 


000010 


1792 








1793 








1794 


010220 


000241 




1795 


010222 


006167 


171050 


1796 








1797 


010^26 


103431 




1798 








1799 








1800 


010230 


036767 


171042 


1801 








18U2 


010236 


001762 




1803 








1804 


ni0240 


016767 


171020 


1805 








1806 


010246 


016767 


171016 


1807 


010254 


000240 




jaoR 


010256 


004767 


177606 


18i'9 








1810 


010262 


005067 


170614 


181 I 








1812 


010266 


005077 


17U22 



$EOP| 

iTHIS NEXT SECTION UP TO THE N 
^SUPPLIED B5f THE MACRO 'EOPBEG 
J THE SOURCE PROGRAM AS ONE OF 
iSYSMAC UTILITY ROUTINE CALL, 

SCOPE 

TSTB MULTD 

BEO 3S 

TST ACTREG 
BNE 1$ 
TYPE iFOULUP 





HALT 






CLR 


MULTD 




CLR 


TABFLG 




JMP 


RESTRT 


171052 l$I 


ADD 


#10#BASEADD 


171050 


ADD 
CLC 


#10»BASEIV 




ROL 


POTADD 




BCS 


2S 


171036 


BIT 


ROTADD, ACTREG 




BEQ 


U 


171012 


MOV 


BASEADD,DLBASE 


171144 


MOV 
NOP 


BASEIV,DLVECT 




JSR 


PCDLADDR 




CLR 


$TSTNM 




CLR 


9DLXCSR 



EXT LINE OF ASTERISKS WAS 

THE MACRO NAME APPEARS IN 
THE ARGUMENTS TO THE ,SEOP 



jARE WE RUNNING MULTIPLE DEVICES? 
BRANCH IF NOT FOR NORMAL 
'END PASS # XX' TYPEOUT 
ARE ANY DEVICES ACTIVE? 
BRANCH IF YES 
INDICATE SOMETHING WRONGl 
MULTIPLE DEVICES ARE BEING 
RUN SUPPOSEDLY, BUT NONE ARE 
SHOWN ACTIVE 

WAIT FOR A USER RESPONSE 
CLEAR MULTIPLE DEVICE FLAG 
CLEAR TABLE CREATION FLAG 
GET READY TO START ALL OVER 
AGAIN - ALL DEVICES WERE 
DESELECTED SOMEHOW} 
FORM A NEW BASE 

ADDRESS FOR START OF NEXT BLOCK 
OF REGISTERS FOR NtXT DEVICE 
FORM A NEW BASE ADDRESS FOP 
START OF NEXT BLOCK OF VECTORS 
FOR NEXT DEVICE 
CLEAR LAST DEVICE INDICATOR 
UPDATE NEXT POSSIBLE DEVICE ACTIVE 
POINTER 

BRANCH IF This WAS THE 
LAST DEVICE TO BE TESTED ON 
THIS PASS 

IS THIS DEVICE TRULY ACTIVE 
(AS PER USER) 

BRANCH IF NOT TO SEE IF NEXT 
ONE POSSIBLE IS 

FORM THE RECEIVER STATUS REGISTER 
ADDRESS OF NEXT DEVICE 
GET NEXT DEVICE RCVH VECTOR 

GO FORM DL ADDRESSES FOR NEXT 
DEVICE SELECTED 

INITIALIZE lEST NO. FOR A PROGRAM 
PASS OVER THE MEXT DEVICE ACTIVE 
CLEAR OUT BOTH CSR'S 
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181 3 
1814 
1815 
1816 
1817 
1818 
1R19 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
J843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 



010272 005077 

010276 005777 

010302 005777 

010306 000167 
010312 



171112 
171110 
171104 
172456 



CLR 


0DLRCSP 




TST 


?DLRDBR 


; FLUSH RCVR 


TST 


^DLPDBR 




JMP 


TSTl 


; START TEST 



010112 012767 000001 170756 



010320 
010326 
010334 
010342 
010350 
010352 
010356 

010356 
010362 
010366 
010372 
010400 
010402 
010404 
OIO4O6 
010410 
010412 
010414 
010420 
010424 
010426 
010432 
010436 
010440 
010442 
010444 
010446 
010450 
010452 
010452 
010454 
010456 
010461 
010466 
010474 



016767 
016767 
016767 
016767 
000240 
004767 



005067 
005067 
005267 
042767 
005327 
000001 
003022 
012737 
000001 
010402 
104401 
016746 
104405 
104401 
013700 
001405 
000005 
004710 
000240 
000240 
000240 

000137 
001772 
377 
015 
050040 
000043 



170736 
170734 
170724 
170722 

177512 



170520 
170654 
170506 
100000 



010461 
170454 



010456 
000042 



377 
042412 
051501 



170736 
170734 
170716 
171050 



000 
042116 
020123 



fIF WE TAKE THIS PATH WE HAVE MADE A CYCLE THRU THE PROGRAM ONCE 

jPER DEVICE I.E. - WE HAVE MADE A COMPLETE PASS 

jNOW WE NEED TO RESTORE EVERYTHING FOR THE NEXT COMPLETE PASS 



MOV 

MOV 
MOV 
MOV 
MOV 
NOP 
JSR 



jSET UP ROTATING POINTER FOR NEXT 
;MULTIPLE PASS 
KEEPADD,BASEADD ; RESTORE BASE ADDRESS 

J RESTORE BASE INTERRUPT VECTOR 
^RESTORE 1ST DEVICE BASE ADDRESS 
f RESTORE 1ST DEVICE VECTOR ADDRESS 



#1, POTADD 



KEEPIV,BASEIV 

BASEADD,DLBASE 

BASEIV#DLVECT 



PCDLADDR 



;FORM ADDRESSES FOR 1ST DEVICE 



I }»»«»»«««»«»«»«*««««««#««««««««««««#««««»««»»«#«»»««»««#«*«««««« 



SENDCTI 



SENDADi 



SRTNADI 
$ENULLl 
$ENDMG| 



CLR 

CLR 

INC 

BIC 

DEC 

.WORD 

BGT 

MOV 

.WORD 

SEOPCT 

TYPE 

MOV 

TYPDS 

TYPE 

MOV 

BEQ 

RESET 

JSR 

NOP 

NOP 

NOP 

JMP 
.WORD 
.BYTE 
.ASCIZ 



STSTNM 

$ TIMES 

SPASS 

#100000, 8PASS 

(PC) + 

1 

$DOAGN 

(PC)+,?(PC)+ 

1 

,$ENDMG 
8PASS,-(SP) 

iSENULL 
§*42,R0 
$DOAGN 

PC,(R0) 



9(PC)+ 
RESTRT 
-1,-1,0 



J I ZERO THE TEST NUMBER 
jfZERO THE NUMBER OF ITERATIONS 
;f II*<CREMENT THE PASS NUMBER 
mDON'T ALLOW A NEG, NUMBER 
f J LOOP? 

;»YES 

^RESTORE COUNTER 



..TYPE "END PASS #'» 

nSAVE SPASS FOR TYPEOUT 

jjGO TYPE— DECIMAL ASCII WITH SIGN 

;>TYPE A NULL CHARACTER 

;}GET MONITOR ADDRESS 

j;BRANCH IF NO MONITOR 

;f CLEAR THE WORLD 

jiGO TO MONITOR 

WSAVE ROOM 

nFOR 

mactu 



<15><12>/END PASS #/ 



JiBETURN 

ffMULL CHARACTER STRING 



.SBTTL SCOPE HANDLER ROUTINE 

1 1 »«««««««»««»»»«»««»«»«»»««»«««#«»»«»#««»»«»«*««««««»##««#«««««# 
|*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
f»AND LOAD THE TEST NUMBERCSTSTNM) INTO THE DISPLAY REG, CDISPLAY<7 |0>) 
f»AND LOAD THE ERROR FLAG (8ERFLG) INTO DISPLAY<15l08> 
f»THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE AREl 
r*SW14sl LOOP ON TEST 
|*SWUal INHIBIT ITERATIONS 
f«SW09sl LOOP ON ERROR 
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1669 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
JP84 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
190? 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 



f»SW08al 
>«CALL 



010476 
010476 
010504 



010510 
010514 
010522 
010526 
010532 
010534 
010536 
010542 
010544 
010544 
010552 
010554 
010562 
010564 
010570 
010572 
010600 
010602 
010610 
010612 
010620 
010622 
010626 
010632 
010634 
010642 
010644 
010650 
010652 
010656 
010664 
010666 
010674 
010702 
010706 
010712 
01 'I? 16 
010722 
010730 
010736 
0107 42 
010744 



032777 
001111 



010506 000416 



013746 
012737 
005737 
012637 
000463 
022626 
012637 
000423 

032777 
001404 
127767 
001462 
105767 
001421 
126767 
101015 
032777 
001404 
016767 
000443 
105067 
005067 
000415 
032777 
00101 I 
005767 
001406 
005267 
026767 
002021 
012767 
016767 
105267 
011667 
011667 
005067 
112767 
016777 
016716 
000002 
000100 



040000 170434 



000004 
010534 
177060 
000004 



000004 

000400 

170360 

170313 

170317 

001000 

170272 

170255 
170410 

004000 

170230 

170226 
170360 

000001 
000044 
170174 
170174 
170172 
170322 
000001 
170146 
170144 



170210 
170340 



170165 
170204 



LOOP ON TEST IN SWR<7j0> 
nSCOPE=lOX 



8SC0PE 
ISI 



$XTSTB 



SSI 

6$I|M 



BIT 
BNE 
START OF 
BR 

MOV 

MOV 

TST 

MOV 

BR 

CMP 

MOV 



170366 
170320 

2Sl 
170303 
170330 
170266 7$l 

43: 

170276 3Sl 



ISl 

SSVLAD 



BR 
#»#END OF 
BIT 
BEQ 
CMPB 
BEQ 
TSTB 
BEO 
CMpB 
BHI 
BIT 
BEQ 
MOV 
BR 

CURB 
CLR 
BP 
BIT 
BNE 
TST 
BEQ 
INC 
CMP 
BGE 
MOV 
MOV 
INCB 
MOV 
MOV 
CLR 
MOVB 
MOV 
MOV 
RTI 
100 



»BIT14#PSWR 
$OVER 
CODE FOR THE XOR 
6$ 

9#ERRVEC,-(SP) 

#5$i@»ERRVEC 

?#177060 

(SP)+,@»ERRVEC 

$SVLAD 

CSP)+,CSP)+ 

(SP3+,P«ERRVEC 

7S 

CODE FOR THE XO 

#BIT08,(aSWR 

28 

gSWR,STSTNM 

$OVER 

SERFLG 

3$ 

0ERMAX,SERFLG 

3$ 

»BrTO9#0SWR 

4S 

$LPERR,SLPADR 

SOVF.R 

SERFLG 

STIMES 

1$ 

#BIT11,&5WR 

IS 

SPASS 

18 

SICNT 

STIMESf SICNT 

SOVER 

#1, SICNT 

SMXCNT# STIMES 

STSTNM 

(SP),SLPADR 

CSP3,SLPERR 

SESCAPE 

«1,$ERMAX 

STSTNM, iDISPLAy 

$LPADR,(SP) 



;LOOP ON PRESENT TEST? 

jYES IF SWH = 1 

ESTERi»»««# 

jIF RUNNING ON THE "XOR" TESTER CHANGE 

jTHIS INSTRUCTION TO A "NOP" (N0P=240) 

;SAVE THE CONTtNTS OF THE ERROR VECTOR 

jSET FOR TIMEOUT 

JTIME OUT ON XOR? 

jRESTORE THE ERROR VECTOR 

jGO TO THE NEXT TEST 

jCLEAR THE STACK AFTER A TIME OUT 

SRESTORE THE ERROR VECTOR 

I LOOP ON THE PRESE.'^T TEST 

TESTER«#»«« 

ILOOP ON SPEC, TEST? 

;8P IF NO 

;0N THE RIGHT TEST? SWR<7:0> 

|BR IF YES 

{HAS AN ERROR OCCUWRED? 

iBP IF NU 

jMAX, ERRORS FOP THIS TEST OCCURRED? 

J BR IF NO 

JLOOP ON ERROR? 

>BR IF no 

jSET LOOP ADDRESS TO LAST SCOPE 



fZERO 
(CLEAR 
lESCAPl 
[INHIB 
tBP IF 
lIF FI 

lINCPE 

[CHECK 

!BR IF 

IPEINI 

[SET N 

[COUWT 

[SAVE 

[SAVE 

[CLEAR 

[ONLY 

[OISPL 

[FUDGE 

[FIXES 

[MAX 



THE FRRO 

THE num; 

E TO THE 
IT ITERA 

YES 
PST PASS 

INHIBIT 
MENT ITE 

THE NUM 

MORE IX 
TIALIZE 
UMBER OF 

TEST MU 
SCOPE LO' 
ERROR LOi 

THE ESC 
ALLOW an 
hi TEST 

«KTURN 

PS 
NUMBER Oi 



FLAG 
BER UF ITERATIONS TU MAK 

NEXT TEST 
TIONS? 

OF PROGRAM 

ITERATIONS 
RATION COUNT 
BER OF ITERATIONS MADE 
ERATION REQUIRED 
THE ITERATION COUNTED 

ITE-^ATIONS TO DO 

BERS 
op ADDRESS 
np ADDRESS 

APE FROM ERROR ADDRESS 
Ed) ERROR ON NEXT TESl 
NUMBF.R 
ADDRESS 

F ITERATIONS 



.SBTTL ERROR -HANDLER ROUTINE 



I J #»»»»«•»»«»■»»«»«»*»#»«»#*#»**»* »*»»»#*»«****#*#-!Hf *»»«■»» *«»*«**«* 



MAINDEC-11-DZDLC-B MACYll 30(1046) 12-JUL-77 10l02 PAGE 40 
DZDLCBjPll 06'-MAY-77 10J04 ERROR HANDLER ROUTINE 



1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 



010746 
010746 
010752 
010754 
010762 
010770 
010772 
010776 
011002 
011006 
011014 
011022 
011030 
011032 
011036 
011042 
011042 
011046 
011050 
011052 
011060 
011062 
011066 
011072 
011074 
OIUOO 
OUlOO 



OII1O2 
01U02 
011106 
011110 
011112 
011116 



105267 
001775 
016777 
032777 
001402 
104401 
005267 
011667 
162767 
117767 
032777 
001004 
004767 
104401 

005777 
100001 
000000 
032777 
001402 
016716 
005767 
001402 
016716 

000002 



170122 
002000 

001246 
170U0 
170110 
000002 
170076 
020000 

000044 
001253 



104401 
010046 
005000 
153700 
001004 



j»THIS 

;»SAVE 

j»AND 

;#THE 

|»SW15 

|*SW13 

J»SW10 

>*SW09i 

I»CALL 



170160 
170150 



170102 
170072 
170110 



ROUTINE WILL INCREMENT THE ERROR FLAG Af'D THE. ERROR COUNT, 

THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
GO TO 8ERRTYP ON ERROR 
SWITCH OPTIONS PROVIDED BY THIS ROUTINE AREj 

1 HALT ON ERROR 
SI INHIBIT ERROR TYPEOUTS 

I BELL ON ERROR , 

1 LOOP ON ERROR 



ERROR 



N 



jfERRORsEMT AND N = ERROR ITE*^ NUMBER 



jiii^, 



SERRORl 
7Sl 



20s: 
281 



001000 170060 38| 



170022 
170152 



INCB 

BEQ 

MOV 

BIT 

BEQ 

TYPE 

INC 

MOV 

SUB 

MOVB 

BIT 

BNE 

JSR 

TYPE 

TST 

BPL 

HALT 

BIT 

BEQ 

MOV 

TSI 

BEQ 

MOV 

RTI 



SERFLG 

78 

STSTNM, PDISPLAY 

#BlT10,(aSWR 

18 

rSBELL 

8EBTTL 

(SP),SEPRPC 

#2,8ERBPC 

eSEPRPCSlTEMB 

#BIT13,9SWR 

208 

PCSERRTYP 

fSCRLF 

9SWR 
38 

#BIT09,95WR 

4$ 

SLPERR,(SP) 

SESCAPE 

56 

SESCAPE, (SP) 



jSET THE ERROR FLAG 
jDON'T LET THE FLAG GO TO ZERO 
J DISPLAY TEST NUMBER AND ERROR FLAG 
JBELL ON ERROR? 
fNO - SKIP 
I RING BELL 

jCOUNT THE NUMBER OF ERRORS 
;>GET ADDRESS OF ERROR INSTRUCTION 

yiSTRIP AND SAVE THE ERROR ITEM CODE 

J>SKIP TYPEOUT IF S^T 

;|5KIP TYPEOUTS 

;|G0 TO USER ERROR ROUTINE 



;jHALT ON ERROR 

i JSKIP IF CONTINUE 

yjHALT ON ERROR! 

;jLOOP ON ERROR SWITCH SET? 

;»BR IF NO 

ff FUDGE RETURN FOR LOOPING 

;f CHECK FOR AN ESCAPE ADDRESS 

nBR IF NONE 

;;FUDGE RETURN ADDRESS FOR ESCAPE 

; » RETURN 



011120 016746 167772 
011124 104402 



.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 

f I ««««««■»»#»**««#«'«»»##«'««##««»«##«#««'»«««#««««»«#««#««##«««»#«»« 
j#THIS ROUTINE USES THE "ITEM CONTROL BYTE" (8ITEMB) TO DETERMINE WHICH 
|»ERROB IS TO BE REPORTED, IT THEN OBTAINS, FROM THE "ERROR TABLE" (SERKTB), 
|«AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR, 



n "CARRIAGE RETURN" & "LINE FEED" 

; jSAVE RO 

nPICKUP THE ITEM INDEX 

;;1F ITEM NUMBER IS ZERO, JUST 

jjTYPE THE PC OF THE ERROR 

;>SAVE SERRPC FOR TYPEOUT 

; {ERROR ADDRESS 

nGO TYPE— OCTAL ASCII(ALL DIGITS) 



SEBR 


TYPi 






TYPE 


#8CRLF 




MOV 


BO,-(SP) 




CLR 


RO 




BISB 


&#8ITEMB,R0 




BNE 


IS 



SERRPC, «(SP) 
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1981 


011126 


000426 




1982 


011130 


005300 




1983 


011132 


006300 




1984 


011134 


006300 




1985 


011136 


006300 




1986 


011140 


062700 


001310 


1987 


011144 


012067 


000004 


1988 


011150 


001404 




1989 


011152 


104401 




1990 


011154 


000000 




1991 


01H56 


104401 


001253 


1992 


011162 


012067 


000004 


1993 


0U166 


001404 




1994 


01U70 


104401 




1995 


011172 


000000 




1996 


011174 


104401 


001253 


1997 


011200 


011000 




I99fi 


011202 


001004 




1999 


011204 


012600 




2000 


011206 


104401 


001253 


2001 


011212 


000207 




2002 


011214 






2003 


011214 


013046 




2004 


011216 


104402 




2005 


011220 


005710 




2006 


011222 


001770 




2007 


011224 


104401 


011232 


2008 


011230 


000771 




2009 


011232 


020040 


000 


2010 




011236 




2011 








2012 








2013 








2014 








2015 








2016 








2017 








2018 








2019 








2070 








2021 








2022 








2023 








2024 








2025 








2026 








2027 








202B 








2029 








2030 








2031 








2032 








2033 








2034 








2035 








2036 









;|GET OUT 

JiADJUST THE INDEX SO THAT IT WILL 

;> WORK FOR THE ERROR TABLE 



jiFORM TABLE POINTER 

jjPICKUP "ERROR MESSAGE" POINTER 

JJSKIP TYPEOUT IF NO POINTER 

; I TYPE THE "ERROR MESSAGE" 

n "ERROR MESSAGE" POINTER GOES HERE 

M "CARRIAGE RETURN" & "LINE FEED" 

JJPICKUP "DATA HEADER" POINTER 

jjSKlP TYPEOUT IF 

MTYPE the "DATA HEADER" 

;>«DATA HEADER" POINTER GOES HERE 

J I "CARRIAGE RETURN" & "LINE FEED" 

MPICKUP "DATA TABLE" POINTER 

;jGU TYPE THE DATA 

,• I RESTORE RO 

; I "CARRIAGE RETURN" S. "LINE FEED" 

;>RETURN 

;>SAVE @CR0)+ FOR TYPEOUT 

?>GD TYPE— 'OCTAL ASCIICALL DIGITS) 

I J IS THERE ANOTHER NUMBER? 

;jBR IF NO 

;jTYPE TW0(2) SPACES 

J J LOOP 

;jTW0(2) SPACES 



.SBTTL BINARY TO OCTAL (ASCII) AND TYPF 

I I #«««»»«»*##»*»»»««#»»*#»»»»*«■»#»*»«»«##»»»»##»*»»»##»»*»»»»♦»** 

l*THIS ROUTINE IS USED TO CHANGE A 16-BlT BINARY NUMBER TO A 6-DlGIT 

{»OCTAL (ASCII) NUMBER AND TYPE IT, 

j»$TYPOS-— ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

;*CALLl 

j» MOV NUM»-(SP) ;»NUMBER TO BE TYPED 

r* TYPOS jjCALL FOR TYPEOUT 

l» .BYTE N riN=l TO 6 FOR NUMBER OF DIGITS TO TYPE 

>» .BYTE M ;>^^=1 OR 

j# j|l=TYPE LEADING ZEROS 

J* M0=SUPPPESS LEADING ZEROS 

l» 

f»STYPON — — ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

f»STXPOS OR STYPOC 

f*CALLl 

|» MOV NUM»-(SP) ;;NUMRER TO BE TYPED 

f* TYPON jjCALL FOR TYPEOUT 

I* 

f »STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

|«CALLl 

J* MOV NUM,-(SP) JJNUMBER TO BE TYPED 

l» TYPOC mCALL for TYPEOUT 





BR 


6$ 


IS I 


DEC 


RO 




ASL 


RO 




ASL 


RO 




ASL 


RO 




ADD 


»8ERRTB#R0 




MOV 


{P0)+,2S 




BEQ 


3$ 




TYPE 






.WORD 







TYPE 


,8CPLF 




MOV 


(R0)+,4$ 




BEQ 


58 




TYPE 






.WORD 







TYPE 


,8CRLF 




MOV 


(R0)»R0 




BNE 


78 




MOV 


(SP)+,R0 




TYPE 


,8CPLF 




RTS 


PC 










MOV 


e(B0)+,-(SP) 




TYPOC 






TST 


(RO) 




BEQ 


68 




TYPE 


t9$ 




BR 


78 


8S! 


.ASCIZ 

.EVEN 


/ / 
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2037 


011236 


017646 


000000 


STYPOSJ 


MOV 


§(SP),-(SP) 


; J PICKUP THE MODE 


2038 


011242 


116667 


000001 000211 




MOVB 


l(SP)#80riLL 


;»LOAD ZERO FILL SWITCH 


2039 


01 1250 


112667 


000207 




MOVB 


(SP)+,60M0DE+1 


nNUMBER OF DIGITS TO TYPE 


2040 


011254 


062716 


000002 




ADD 


»2,(SP) 


;;ADJUST RETURN ADDRESS 


2041 


011260 


000406 






BR 


8TYP0N 




2042 


011262 


112767 


000001 000171 


STYPOCI 


MOVB 


#1,80FXLL 


;jSET THE ZERO FILL SWITCH 


2043 


011270 


112767 


000006 000165 




MOVB 


»6,S0M0DE+l 


yjSET FOR SIX(6) DIGITS 


2044 


011276 


112767 


000005 000154 


STYPONI 


MOVB 


#5,80CNT 


;»SET THE ITERATION COUNT 


2045 


011304 


010346 






MOV 


R3,-(SP) 


;fSAVE R3 


2046 


011306 


010446 






MOV 


R4,-(SP) 


yiSAVE R4 


2047 


011310 


010546 






MOV 


R5,-(SP) 


; J SAVE R5 


2048 


1 1 3 J 2 


116704 


000145 




MOVB 


80MODE-«-l,R4 


fjGET THE NUMBER OF DIGITS TO TYPl 


2049 


011316 


005404 






NEG 


R4 




2050 


011320 


062704 


000006 




ADD 


#6,R4 


^SUBTRACT IT FOR MAX, ALLOWED 


2051 


011324 


110467 


000132 




MOVB 


R4,80M0DE 


jjSAVE IT FOR USE 


2052 


011330 


116704 


000125 




MOVB 


80FILL,R4 


jfGET THE ZERO FILL SWITCH 


2053 


011334 


016605 


000012 




MOV 


12(SP),R5 


;jPICKUP THE INPUT NUMBER 


2054 


011340 


005003 






CLR 


R3 


;>CLEAR THE OUTPUT WORD 


2055 


01 1342 


006105 




18: 


ROL 


R5 


jjROTATE MSB INTO »C" 


2056 


011344 


000404 






BR 


33 


y»GO DO MSB 


2057 


011346 


006105 




281 


ROL 


R5 


yjFORM THIS DIGIT 


205 8 


011350 


006105 






ROL 


R5 




2059 


011352 


006105 






ROL 


R5 




2060 


011354 


010503 






MOV 


R5,R3 




2061 


011356 


006103 




381 


ROL 


R3 


;>GET LSB OF THIS DIGIT 


2062 


011360 


105367 


000076 




DECB 


80M0DE 


jfTYPE THIS DIGIT? 


2063 


011364 


100016 






BPL 


78 


jfBR IF NO 


2064 


011366 


042703 


177770 




BIC 


#177770, R3 


jjGET RID OF JUNK 


2065 


011372 


001002 






BNE 


48 


WTEST FOR 


2066 


011374 


005704 






TST 


R4 


JISUPPRESS THIS 0? 


2067 


011376 


001403 






BEQ 


58 


nBR IF YES 


2068 


011400 


005204 




481 


INC 


R4 


jjDON'T SUPPRESS ANYMORE O'S 


2069 


011402 


052703 


000060 




BIS 


#'0#R3 


jjMAKE THIS DIGIT ASCII 


2070 


011406 


052703 


000040 


5SJ 


BIS 


»' ,R3 


IjMAKE ASCII IF NOT ALREADY 


2071 


011412 


110367 


000040 




MOVB 


R3,88 


nSAVE FOR TYPING 


2072 


011416 


104401 


011456 




TYPE 


rBS 


ndO TYPE THIS DIGIT 


2073 


011422 


105367 


000032 


78s 


DECB 


SOCNT 


nCOUNT BY 1 


2074 


011426 


003347 






BGT 


28 


nBP IF MORE TO DO 


2075 


011430 


002402 






BLT 


68 


nBR IF DONE 


2076 


011432 


005204 






INC 


R4 


;jINSURE LAST DIGIT ISN'T A BLANK 


2077 


011434 


000744 






BR 


28 


nGO DO THE LAST DIGIT 


2078 


011436 


012605 




681 


MOV 


(SP)+,R5 


;> RESTORE R5 


2079 


011440 


012604 






MOV 


(SP)-(',R4 


U RESTORE R4 


2080 


011442 


012603 






MOV 


(SP)+,B3 


;i RESTORE R3 


2081 


011444 


016666 


000002 000004 




MOV 


2(SP)»4(SP) 


?ISET THE STACK FOR RETURNING 


2082 


011452 


012616 






MOV 


(SP)+,(SP) 




2083 


011454 


000002 






RTI 




n RETURN 


2084 


011456 


000 




881 


.BYTE 





jjSTORAGE FOR ASCII DIGIT 


2085 


011457 


000 






.BYTE 





jfTERMINATOR FOR TYPE ROUTINE 


2086 


011460 


000 




80CNTI 


.BYTE 





nOCTAL DIGIT COUNTER 


2087 


011461 


000 




SOFILLI 


.BYTE 





jfZERO FILL SWITCH 


2088 


011462 


000000 




80M0DEI 


.WORD 





nNUMBER OF DIGITS TO TYPE 


2089 
















2090 








.SBTTL 


CONVERT 


' BINARY TO DECIMAL AND TYPE ROUTINE 


2091 
















2092 








1 J»»»«»*»«»»*»»»*««*»##*4*#*»»««»»»*#»#»«*»»#«#»»#»»»»»*»«»»*»««»» 
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2093 








2094 








2095 








2096 








2097 








2098 








2099 








2100 








2101 








2102 


0U464 






2103 


011464 


010046 




2104 


011466 


010146 




2105 


011470 


010246 




2106 


011472 


010346 




2107 


011474 


010546 




2108 


011476 


012746 


020200 


2109 


0U502 


016605 


000020 


2110 


011506 


100004 




2111 


011510 


005405 




2112 


011512 


112766 


000055 


2113 


011520 


005000 




2114 


011522 


012703 


011700 


2115 


011526 


112723 


000040 


2116 


011532 


005002 




2117 


011534 


016001 


011670 


2118 


011540 


160105 




2119 


011542 


002402 




2120 


011544 


005202 




2121 


011546 


000774 




2122 


011550 


060105 




2123 


0U552 


005702 




2124 


011554 


001002 




2125 


01 1556 


105716 




2126 


011560 


100407 




2127 


011562 


106316 




2128 


011564 


103003 




2129 


011566 


116663 


000001 


2130 


OII574 


052702 


000060 


2131 


011600 


052702 


000040 


2132 


011604 


110223 




2133 


011606 


005720 




2134 


011610 


020027 


000010 


2135 


011614 


002746 




2136 


011616 


003002 




2137 


011620 


010502 




2138 


011622 


000764 




2139 


011624 


105726 




2140 


011626 


100003 




2141 


011630 


116663 


177777 


2142 


011636 


105013 




2143 


011640 


012605 




2144 


011642 


012603 




2145 


011644 


012602 




2146 


011646 


012601 




2147 


011650 


012600 




2148 


011652 


104401 


011700 



>»THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
|»SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
f»NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
|«BErORE THE FIRST DIGIT OF THE NUMBER, LEADING ZEROS WILL ALWAYS BE 
|«REPLACED WITH SPACES, 
»*CALLJ 

I* MOV NUMf»(SP) flPl'T THE BINARY NUMBER ON THE STACK 
>* TYPDS ffGO TO THE ROUTINE 



nPUSH PO ON STACK 

; I PUSH Rl ON STACK 

JlPUSH R2 ON STACK 

; I PUSH R3 ON STACK 

? J PUSH R5 ON STACK 

;jSET BLANK SWITCH AND SIGN 

;;GET THE INPUT NUMBER 

;jBR IF INPUT IS POS. 

fjMAKE THE BINARY NUMBER POS, 

yjMAKE THE ASCII NUMBER NEG, 

fjZERO THE CONSTANTS INDEX 

msetup the output pointer 

jfset the first character to a blank 

fiCLEAR THE BCD NUMdER 
J jGET THE CONSTANT 

;|form this bcd digit 
mbr if done 

jjI^JCREASE THE BCD DIGIT BY 1 

jfADD BACK THE CONSTANT 

;f CHECK IF BCD DIGIT=0 

MFALL THROUGH IF 

fjSTILL DOING LEADING O'S? 

;iBR IF YES 

; jMSD? 

jjBR IF NO 

; I YES— SET THE SIGN 

yjMAKE THE BCD DIGIT ASCII 

;;MAKE IT A SPACE IF NOT ALREADY A DIGl'l 

;jPUT THIS CHARACTER IN THE OUTPUT BUFFER 

;)|JUST INCREMENTIf^G 

;;CHECK THE TABLE I^^DEX 

; >G0 DO THE MRXT DIGIT 

;jGO TO EXIT 

MGET THE LSD 

;>G0 CHANGE TO ASCII 

;;wAS THE LSD THE FIRST NON-ZERO? 

jfBR IF NO 

•IYFS--SET THE SIGN FOR TYPING 

; jSET THE TEpfUNATOH 

; J POP STACK INTO R5 

;;POP STACK INTO R3 

; jPOP STACK INTO R2 

;jPOP STACK INTO HI 

;;POP STACK INTO PC 

;}NOW TYPE THE NUMBER 



STYPDSl 








MOV 


R0,-(SP) 




MOV 


R1#"(SP) 




MOV 


R2,-(SP) 




MOV 


R3,-(SP) 




MOV 


R5,-(SP) 




MOV 


#20200#-(SP) 




MOV 


20(SP),R5 




BPL 


IS 




NEG 


R5 




MOVB 


#'-a(SP) 


1S{ 


CLR 


RO 




MOV 


#8DBLK,R3 




MOVB 


#' »CR3)+ 


2Sl 


CLR 


R2 




MOV 


$DTBL£R0),R1 


3Si 


SUB 


R1,R5 




BLT 


4$ 




INC 


R2 




BR 


3$ 


4$j 


ADD 


R1,RS 




TST 


R2 




BNE 


5S 




TSTB 


(SP) 




BMI 


7$ 


561 


ASLB 


(SP) 




BCC^ 


6$ 




MOVB 


1(SP),-1CR3) 


est 


BIS 


#'0#R2 


7SI 


BIS 


«' »R2 




MOVB 


H2,(R3)+ 




TST 


£R0) + 




CMP 


R0,#10 




BLT 


2S 




BGT 


8$ 




MOV 


R5,R2 




BR 


6S 


8${ 


TSTB 


(SP) + 




BPL 


9S 




MOVB 


-1(SP),-2(R3) 


9SI 


CLRB 


(R3) 




MOV 


(SP)+,R5 




MOV 


£SP)+,P3 




MOV 


(SP)+,R2 




MOV 


(SP)+,R1 




MOV 


{SP)+,RO 




TYPE 


,$DBLK 
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2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 



011656 
011664 
011666 
011670 
011672 
011674 
011676 
011700 



OU7IO 
011712 
0U720 
011724 
011726 
011734 
011742 
011750 
011752 
0U756 
0U760 
011764 
011770 
011774 
011776 
012000 
OI20O6 
012010 
012016 
012020 
012026 



016666 
012616 
000002 
023420 
001750 
000144 
000012 
000004 



011646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
002407 
026627 
003003 
042766 
000002 



000002 000004 



000004 
167220 

167214 
177600 
000004 



167162 
177600 
000021 



000004 
000004 
000040 



000175 



SDTBLl 



MOV 


2(SP),4£SP) 


MOV 


(SP)+,{SP) 


RTI 




10000, 




1000, 




100. 




10. 




,BLKW 


4 



; fADJUST THE STACK 
J > RETURN TO USER 



.SBTTL TTY INPUT ROUTINE 

.ENABL LSB 

.DSABL LSB 

j*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

f*CALLl 

># RDCHR n INPUT A SINGLE CHARACTER FROM THE TTV 

t* RETURN HERE ;;CHARACTER IS ON THE STACK 

I* tjWiTH PARITSf BIT STRIPPED OFF 

I 



l$l 



000004 
000004 
000023 



000140 3$l 



4$l 



MOV 

MOV 

TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

BR 

CMP 

BLT 

CMP 

BGT 

BIC 

RTI 



(SP),-(SP) 

4(SP),2(SP) 

e$TKS 

16 

i$TKB,4(SP) 

#"C<177>#4( 

4(SP)f#23 

3$ 

98TKS 

26 

P8TKB,-(SP) 

#"C177,(SP) 

CSP)+,»21 

26 

16 

4(SP}r#140 

46 

4£SP),#175 

46 

#40#4(SP) 



f«THIS ROUTINE WILL INPUT A 

;«CALL| 

j» PDLIN 

j» RETURN HERE 

f» 



012030 010346 
012032 005046 
012034 012703 012264 



8RDLIN1 MOV 

CLR 

ISl MOV 



R3,-{SP) 

"(SP) 

#$TTYIN,R3 



; I PUSH DOWN THE PC 
J f SAVE THE PS 
fjWAIT FOR 
;>A CHARACTER 
;>READ THE TTY 
SP) j»GET RID OF JUNK IF ANY 
Mis IT A CONTROL-S? 
nBRANCH IF NO 
jfWAIT FOR A CHARACTER 
nLOOP UNTIL ITS THERE 
; jGET CHARACTER 
nMAKE IT 7-BIT ASCII 
MiS IT A CONTROL-Q? 
nlF NOT DISCARD IT 
;|YES» RESUME 
;>IS IT UPPER CASE? 
; J BRANCH IF YES 
;jIS IT A SPECIAL CHAR? 
nBRANCH IF YES 
;|MAKE IT UPPER CASE 
MGO BACK TO USER 

STRING FROM THE TTY 

fj INPUT A STRING FROM THE TTY 

MADDRESS of first CHARACTER WILL BE UN THE STACK 

jlTERMINATOR WILL BE A BYTE OF ALL O'S 

nSAVE R3 

jfCLEAR THE RUBOUT KEY 

IjGET ADDRESS 



I 
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2205 


012040 


022703 


012274 




2$t 


CMP 


»8TTYIN+8,,R3 


hbuffer full? 


2206 


012044 


101456 








BLOS 


48 


JIBR IF YES 


2207 


012046 


104406 








PDCHR 




;|Ga READ OWE CHARACTER FROM THE TTY 


2208 


012050 


112613 








MOVB 


(SP)+,(R3) 


ffGET CHARACTER 


2209 


012052 


122713 


000177 




10$| 


CMPB 


»177,(R3) 


}f IS IT A RUBOUT 


2210 


012056 


001022 








BNE 


58 


If BR IF NO 


2211 


012060 


005716 








TST 


(SP) 


J lis THIS THE FIRST RUBOUT? 


2212 


012062 


001007 








BNE 


68 


llBB IF NO 


2213 


012064 


112767 


000134 


000170 




MOVB 


»'\#9S 


II TYPE A BACK SLASH 


2214 


012072 


104401 


012262 






TYPE 


,98 




2215 


012076 


012716 


177777 






MOV 


»-l#(SP) 


llSET THE RUBOUT KE^ 


2216 


012102 


005303 






6S| 


DEC 


R3 


llBACKUP BY ONE 


2217 


012}04 


020327 


012264 






CMP 


R3,«8TTYIN 


llSTACK EMPTY? 


2218 


012110 


103434 








BLO 


48 


IjBH IF YES 


2219 


012112 


111367 


000144 






MOVB 


(R3)#9$ 


llSETUP TO TYPEOUT THE DELETED CHAR, 


2220 


012116 


104401 


012262 






TVPE 


,9$ 


llGO TYPE 


2221 


012122 


000746 








BR 


28 


;|G0 READ ANOTHER CHAR, 


2222 


012124 


005716 






58S 


TST 


(SP) 


llRUBOUT KEY SET? 


2223 


012126 


001406 








BEQ 


76 


llBR IF NO 


2224 


U12130 


112767 


000134 


000124 




MOVB 


»'\#9S 


II TYPE A BACK SLASH 


2225 


012136 


104401 


012262 






TYPE 


#98 




2226 


012142 


005016 








CLR 


(SP) 


llCLEAR THE RUBOUT KEY 


2227 


012144 


122713 


000025 




7$J 


CMPB 


»25#(R3) 


Ills CHARACTER A CTRL U? 


222B 


012150 


001003 








BNE 


88 


II BR IF NO 


2229 


012152 


104401 


012274 






TYPE 


rSCNTLU 


II TYPE A CONTROL "U» 


2230 


012156 


000726 








BR 


18 


llGO START OVER 


2231 


012160 


122713 


000022 




8SI 


CMPB 


#22r(B3) 


Ills CHARACTER A "-R«? 


2232 


012164 


001011 








BNE 


38 


llBRANCH IF NO 


2233 


012166 


105013 








CLRB 


(R3) 


llCLEAR THE CHARACTER 


2234 


012170 


104401 


001253 






TYPE 


rSCBLF 


llTYPE A "CR" & "LF" 


2235 


012174 


104401 


012264 






TYPE 


,8TTYIN 


llTJfPE THE INPUT STRING 


2236 


012200 


000717 








BR 


28 


llGO PICKUP ANOTHER CHACTER 


2237 


012202 


104401 


00125 2 




4S: 


TYPE 


#8QUES 


llTYPE A '?' 


2238 


012206 


000712 








BR 


18 


llCLEAR THE BUFFER AND LOOP 


2239 


012210 


111367 


000046 




381 


MOVB 


(R3)#9S 


llECHO THE CHARACTER 


2240 


012214 


104401 


012262 






TXPE 


,98 




2241 


012220 


122723 


000015 






CMPB 


#15»(R3)+ 


II CHECK FOR RETURN 


2242 


012224 


001305 








BNE 


28 


II LOOP IF NOT RETURN 


2243 


012226 


105063 


177777 






CLRB 


-l(P3) 


llCLEAR RETURN (THE 15) 


2244 


012232 


104401 


001254 






TYPE 


#8LF 


llTYPE A LINE FEED 


2245 


012236 


005726 








TST 


(SP) + 


llCLFAN RUBOUT KEY FROM THE STACK 


2246 


012240 


012603 








MOV 


(SP)+,B3 


IIRCSTOPE H3 


2247 


012242 


011646 








MOV 


(SP),«(SP) 


II ADJUST THE STACK AND PUT ADDRESS OF 


224R 


012244 


016666 


000004 


000002 




MOV 


4(SP),2(SP) 


11 FIRST ASCII CHARACTER ON IT 


2249 


012252 


012766 


012264 


000004 




MOV 


»8TTYIN,4(SP) 




2250 


012260 


000002 








RTI 




1 iRETURN 


22S1 


012262 


000 






9${ 


.BYTE 





llSTORAGE FOR ASCII CHAR, TO TYPE 


2252 


012263 


000 








.BYTE 


U 


II TERMINATOR 


2253 


012264 


000<^10 






STTYIK': 


,BLKB 


8, 


II RESERVE 8 BYTES FOR TTY INPUT 


2254 


012274 


052536 


005015 


000 


$CNTIiU| 


.ASCIZ 


/"U/<15><12> 


llCONTROL "U" 


2255 


012301 


136 


006507 


000012 


SCNTLGl 


.A5CIZ 


/-G/<15><12> 


; {CONTROL "G" 


2256 


012306 


005015 


053523 


020122 


SMSWBi 


.ASCIZ 


<1S><12>/SWR a 


/ 


2257 


012314 


020075 


000 












2258 


012317 


040 


047040 


053505 


SMNEWj 


.ASCIZ 


/ NEW = / 




2259 


012324 


036440 


000040 












2260 
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2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 



012330 
012332 
012340 
012342 
012344 
012346 
012350 
012352 
012356 
012360 
012362 
012364 
012366 
012372 
012374 
012400 
012402 
012404 
012406 
012410 
012412 
012414 
012416 
012422 
012424 
012426 
012430 
012434 
012440 
012442 
012444 
012446 
012450 
012452 
012454 
012456 
012460 
012464 
012466 



011646 
016666 
010046 
010146 
010246 
104407 
012600 
010067 
005001 
005002 
U2046 
001420 
122716 
003026 
122716 
002423 
006301 
006102 
006301 
006102 
006301 
006102 
042716 
062601 
000756 
005726 
010166 
010267 
012602 
012601 
012600 
000002 
005726 
105010 
104401 
000000 
104401 
000730 
000000 



000004 000002 



000012 
000026 



.SBTTL READ AN OCTAL NUMBER FROM THE TTY 

I |»«#»«»#»#»***#*#*#»«*#«»»»»#«»#»»«#»»#»»»»»##»»#«#*»4nnnn^«##«## 

l«THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 

l»CHANGE IT TO BINARY, 

l*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 

|*OCTAL DIGITS, IF AN ILLEGAL CHARACTER IS READ A "?" WILL BE TYPED 

|*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 

|*THEN BE RETYPED, THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN, 

|»CALLl 

l» RDOCT iiREAD AN OCTAL NUMBER 

|» RETURN HERE ||LOW ORDER BITS ARE ON TOP OF THE STACK 

I* llHIGH ORDER BITS ARE IN SHIOCT 

llPROVIDE SPACE FOR THE 

1 1 INPUT NUMBER 

I I PUSH RO ON STACK 

I I PUSH Rl ON STACK 

I I PUSH R2 ON STACK 

llREAD AN ASCIZ LINE 

llGET ADDRESS OF 1ST CHARACTER 

llAND SAVE IT 

I iCLEAR DATA WORD 

llPICKUP THIS CHARACTER 
If IF ZERO GET OUT 
llMAKE SURE THIS CHARACTER 
Ills AN OCTAL DIGIT 



;i*2 

?»*4 



SRDOCTl 


MOV 


(SP),-(SP) 




MOV 


4(SP),2CSP) 




HOV 


RO,-(SP) 




MOV 


R1,-(SP) 




MOV 


R2,-(SP) 


181 


RDLIN 






MOV 


CSP)+,RO 




MOV 


R0,5S 




CLR 


Rl 




CLR 


R2 


28! 


MOVB 


(RO)+,-(SP) 




BEQ 


38 




CMPB 


»'0#(SP) 




BGT 


48 




CMPB 


l»'7,(SP) 




BLT 


48 




ASL 


Rl 




POL 


R2 




ASL 


Rl 




ROL 


R2 




ASL 


Rl 




ROL 


R2 




BIC 


#-C7,(SP) 




ADD 


CSP)+,Rl 




BR 


28 


381 


TST 


(SP) + 




MOV 


R1,12(SP) 




MOV 


B2,$HI0CT 




MOV 


(SP)+,R2 




MOV 


{SP)+,P1 




MOV 


(SP)+,RO 




RTI 




481 


TST 


(SP) + 




CLRB 


(RO) 




TYPE 




581 


.WORD 







TYPE 


#8QUES 




BR 


IS 


8HI0CTI 


,WORD 






11*8 

llSTRIP THE ASCII JUNK 
llADD IN THIS DIGIT 

I I LOOP 

llCLEAN TERMINATOR FROM STACK 
nSAVE THE RESULT 

If POP STACK INTO R2 
nPOP STACK INTO Rl 

I I POP STACK INTO RO 
f IRETURN 

nCLEAN PARTIAL FROM STACK 

IJSET A TERMINATOR 

IJTYPE UP THRU THE BAD CHAR, 

ll»?" »CR" & "LF" 

llTRY AGAIN 

IfHIGH ORDER BITS GO HEBE 



.SBTTL TYPE ROUTINE 
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2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 



012470 
012474 
012476 
012500 
012502 
012504 
012510 
012512 
012514 
012516 
012520 
012524 
012525 
012532 
012534 
012540 
012542 
012544 
012546 
012550 
012554 
012556 
012562 
012566 
012570 

012574 
012600 
012602 
012606 
012612 



012614 
012620 
012624 
012632 
012634 
012636 
012640 



105767 
100002 
000000 
000407 
010046 
017600 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
001253 
105067 
00075S 
004767 
126726 
001350 
016746 



112716 
004767 
132767 
001372 
005726 
000724 
105777 



000056 
166370 



166360 



105366 000001 
002770 
004767 000032 

105367 000072 
000770 



000040 
000014 
000007 000052 



»»ROUTINE TO TYPE ASCIZ MESSAGE, MESSAGE MUST TERMINATE WITH A BYTE, 

>»THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED, 

>#NOTEli SNuLL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 

|»N0TE2l $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED, 

>»N0TE3l SFILLC CONTAINS THE CHARACTER TO FILL AFTER, 

f« 

;»CALLi 

)*n USING A TRAP INSTRUCTION 

>» TYPE fMESADR jjl^ESADR IS FIRST ADDRESS OF AN ASCIZ STRING 

>»0R 

>» TYPE 

J* MESADR 



60$| 
3$l 



5Sl 

6$: 



TSTB 

BPL 

HALT 

BR 

MOV 

MOV 

MOVB 

BNE 

TST 

MOV 

ADD 

RTI 

CMPB 

BEQ 

CMPB 

BNE 

TST 

TYPE 

SCRLF 

CLRB 

BR 

JSR 

CMPB 

BNE 

MOV 

DECB 

BLT 

JSR 

DECB 

BR 



$TPFLG 
1$ 

3$ 

RO,"(SP) 

82CSP),R0 

(R03+,-(SP) 

4$ 

(SP)t 

(SP)+,RO 

#2,(SP) 

#HT,(SP) 

6S 

»CRLF,(SP) 

58 

CSP) + 



SCHARCNT 

2S 

PC,$TYPFC 

SFILLC, CSP)+ 

2$ 

SNULL, -(SP) 

l(SP) 
6$ 

PCSTYPEC 

SCHARCNT 

7S 



iHORIZONTAL TAB PROCESSOR 



esi 

9SI 



MOVB 
JSR 
BITB 
BNE 
TST 
BR 
STYPECl TSTB 



#' ,(SP) 

PCSTYPEC 

#7, SCHARCNT 

9$ 

(SP) + 

2S 

esTPs 



;MS THERE A TERMINAL? 

;jBR IF YES 

JJHALT HERE IF NO TERMINAL 

JILEAVE 

fiSAVE RO 

;jGET ADDRESS OF ASCIZ STRING 

; J PUSH CHARACTER TO BE TYPED ONTO STACK 

;jBR IF IT ISN'T THE TERMINATOR 

fjIF TERMINATOR POP IT OFF THE STACK 

fl RESTORE RO 

;jADJUST RETURN PC 

yjRETURN 

jjBRANCH IF <HT> 

; jBPANCH IF NOT <CRLF> 

;>POP <CR><LF> EOUIV 
; J TYPE A CR AND LF 

;;CLEAR CHARACTER COUNT 

; jGET NEXT CHARACTER 

;jGO TYPE THIS CHARACTER 

;)1S IT TIME FOP FILLER CHARS,? 

j;IF NO GO GET f^EXT CHAP, 

jjGFT » OF FILLER CHARS, NEEDED 

HAND THE NULL CHAR. 

••Dnts A NULL NEED TO BE TYPED? 

J»8P IF NO--GO POP THE NULL OFF OF STACK 

; >GU TYPE A NULL 

;;D0 NOT COUNT AS A COUNT 

:;LOOP 



J f REPLACE TAB wITH SPACE 

fjTYPE A SPACE 

;f BRANCH IF NOT AT 

;|TAB STOP 

;;POP SPACE OFF STACK 

; jGET NEXT CHARACTER 

;>k^AIT UNTIL PRINTER IS READY 
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2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2429 
2426 
2427 
2428 



012644 
012646 
012654 
012662 
012664 
012670 
012672 
012700 
012702 
012704 
012706 



012710 
012712 
012720 
012722 
012724 
012726 
012730 
012732 
012736 
012740 
012742 
012746 
012750 
012752 
012754 
012756 
012762 
012764 
012770 
012772 
012776 
013000 
013002 
013004 
013006 
013010 
013012 
013014 
013020 



100375 
116677 
122766 
001003 
105067 
()00406 
122766 
001402 
105227 
000000 
000207 



011646 
016666 
010046 
010146 
010246 
104407 
012600 
010067 
005046 
005002 
122710 
001001 
112002 
112001 
001424 
122701 
003032 
122701 
002427 
032716 
001024 
006316 
011646 
006316 
006316 
062616 
102416 
162701 
060116 



000002 
000015 



000014 
000012 



166276 
000002 



000002 ISI 



000004 000002 



000060 
000071 
170000 



BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 

CMPB 
BEO 
INCB 
SCHARCNTl.WORD 
STYPEXl RTS 



STYPEC 

2CSP),§$TPB 

#CR,2CSP) 

IS 

SCHARCNT 

STYPEX 

#LF,2(SP) 

STYPEX 

(PC) + 



PC 



JjLOAD CHAR TO BE T^PED INTO DATA KEG, 
ffiS CHARACTER A CARRIAGE RETURN? 
jf BRANCH IF NO 

nyes--clear character count 
mexit 

^jjlS CHARACTER A LINE FEED? 
jfBRANCH IF YES 
?>COUNT THE CHARACTER 
JjCHARACTER COUNT STORAGE 



.SBTTL READ A DECIMAL NUMBER FROM THE TTY 

I J ##»«»»»««#««»»««»**»*«#**«»»«»«##««##»«»###»»»#»*#»»« »###4t#*#»* 

f«THIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND 

|»CHANGE IT TO BINARY, IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS 

|«ARE READ A "?" FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED, 

^«THE COMPLETE NUMBER MUST BE RETYPED, THE INPUT IS TERMINATED BY THE 

|*USER TYPING A CARRIAGE RETURN, THE RANGE OF THE INPUT NUMBER IS 

l»POSITIVE 32767 TO NEGATIVE 3^768, 

f*CALLl 

J* RDDEC mREAD a decimal NUMBER 

I* RETURN HERE ijNUMBER IS ON TOP OF THE STACK 

; 

llPROVIDE SPACE FOR 

nTHE INPUT NUMBER 

jfPUSH RO ON STACK 

; I PUSH Rl ON STACK 

fjPUSH R2 ON STACK 

jfREAD AN ASCIZ LINE 

nADDRESS OF 1ST CHAR, 

jlSAVE INCASE OF BAD INPUT 

; fCLEAR DATA WORD 

nSIGN SET POSITIVE 

jfSEE IF A MINUS SIGN WAS TYPED 

J JBR IF NO MINUS SIGN 

nSAVE FOP LATER USE 

nPICKUP THIS CHARACTER 

IjGET OUT IF ZERO 

nMAKE SURE THIS CHARACTER 

Mis A DIGIT BETWEEN & 9 



jjDON'T LET NUMBER GET TO BIG 
nBR IF NUMBER WOULD OVERFLOW 

n*2 

J I SAVE FOR LATER 

n*4 

n»8, 
n»io. 

nOVERFLOW ISN'T ALLOWED 
jfSTRIP AWAY THE ASCII JUNK 
flADD IN THIS DIGIT 



SRDDECl MOV 


(SP),«(SP) 


MOV 


4(SP),2(SP) 


MOV 


RO,-(SP) 


MOV 


R1,«(SP) 


MOV 


R2,-(SP) 


181 RDLIN 




MOV 


(SP)+,RO 


MOV 


R0,6S 


CLR 


"(SP) 


CLR 


R2 


CMPB 


#'-,CRO) 


BNE 


21 


MOVB 


(P0)+,R2 


2$l MOVB 


(R0)+,R1 


BEQ 


3$ 


CMPB 


»'0#R1 


BGT 


SS 


CMPB 


#'9,R1 


BLT 


5$ 


BIT 


fC7777,(SP) 


BNE 


5$ 


ASL 


C5P) 


MOV 


(5P),-(SP) 


ASL 


(SP) 


ASL 


(SP) 


ADD 


(SP)+,(SP) 


BVS 


5S 


SUB 


»'0,R1 


ADD 


R1,(SP) 
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24?9 


U13022 


102412 


2430 


013024 


000752 


2431 


013026 


005702 


2432 


Ol3o30 


001401 


2433 


013032 


005416 


2434 


013034 


012666 000012 


2435 


013040 


012602 


2436 


013042 


012601 


2437 


013044 


012600 


2438 


013046 


000002 


2439 






2440 


013050 


005726 


2441 


013052 


105010 


2442 


013054 


104401 


2443 


013056 


000000 


2444 


OU060 


104401 001252 


244'5 


013064 


000720 


2446 






2447 






2448 






2449 






2450 






2451 






2452 






2453 






2454 






2455 


013066 


010046 


2456 


013070 


016600 000002 


2457 


013074 


005740 


2458 


013076 


111000 


2459 


U13100 


006300 


2460 


013102 


016000 013122 


2461 


Cl3t06 


00020O 


2462 






2463 






2464 






2465 






2466 


013110 


011646 


2467 


013112 


016666 000004 


2468 


013120 


000002 


2469 






2470 






2471 






2472 






2473 






2474 






2475 






2476 






2477 


013122 


013110 


2478 


013124 


012470 


2479 


013126 


011262 


2480 


013130 


011236 


2481 


013132 


011276 


2482 


013134 


011464 


2483 






2484 







JJOVEPFLOW ISN'T ALLQI^ED 

nLoop 

;»CHECK IF NUMBER IS NEG 
jfBR IF NO 

}f YES— NEGATE THE NUMBER 
;»SAVE THE RESULT 
jfPOP STACK INTO R2 
jlPOP STACK INTO Rl 
;>POP STACK INTO RO 
nPETURN 

IJCLEAN PARTIAL NUMBER FROM STACK 

fjSET A TERMIi^ATOP 

jrTYPE THE INPUT UP TO BAD CHAR, 

nPOINTER GOES HERE 

n"?" "CR" &"LF" 

Jjl'RY AGAIN 

.SBTTL TRAP DECODER 

; f««««#«««4^»»»»»»»««'«#«tf «#«««««««#»»« #«»«#»»»««»#»«««#«««««»«#««# 
;«THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
;»AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
j»OF THE PESIRED ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 
y»GQ TO THAT ROUTINE, 

STRAPl 





BVS 


5$ 




BR 


2$ 


3S| 


TST 


R2 




BEQ 


48 




NEG 


(SP) 


4SJ 


MOV 


(SP)+,12(SP) 




MOV 


CSP)+,P2 




MOV 


CSP)+,R1 




MOV 


(SP)+,RO 




PTI 




581 


TST 


CSP) + 




CLRB 


(RO) 




TYPE 




6$l 


.WORD 







TYPE 


rSQUES 




BR 


IS 



MOV 


RO,-(SP) 




?tSAVE RO 


MOV 


2(SP),P0 




;>GET TRAP ADDRESS 


TST 


-(RO) 




7JBACKUP BY 2 


MOVB 


(P0)#R0 




;|GET RIGHT BYTE OF TRAP 


ASL 


RO 




JIPOSITION FOR INDEXING 


MOV 


STRPAD(RO) 


RO 


jtinDEX TO TABLE 


RTS 


RO 




jjGO TO ROUTINE 



l»THIS IS USE TO HANDLE THE "GETPRI" MACRO 



MOV 
MOV 
RTI 



(SP),-(SP) 
4(SP),2(SP) 



ffHOVE THE PC OOi^N 
; J MOVE THE PSW DOwN 
; J RESTORE THE PSw 



.SBTTL TRAP TABLE 



|*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;»BY THE "TRAP" INSTRUCTION, 



J ROUTINE 






STRPADl .WORD 


STRAP2 




STYPE 


f fCALLsTYPE 


TRAP+l(10440n 


STYPOC 


nCALLsTYPOC 


TRAP+2(104402) 


STYPOS 


nCALLsTYPOS 


TRAP+3(104403) 


STYPON 


nCALLsTYPON 


TRAP+4(104404) 


$TYPDS 


MCALLsTYPDS 


TRAP+5(104405) 



TTY TYPEUUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPIJ, OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (wlTH SIGN) 
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11 
IIP 



2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 



013136 011710 

013140 012030 

013142 012330 

013144 012710 



013146 
013154 
013162 
013164 
013166 
013170 
013172 
013174 
013176 
013202 
013206 
013214 
013216 



013220 
013226 
013232 
013236 
013242 
013244 
013250 
013252 
013254 
013256 
013260 
013262 
013264 
013272 
013300 
013302 
013304 
013306 
013310 
013312 
013314 
013316 
013320 
013326 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010667 
012737 
000000 
000776 



012737 
016706 
005067 
005267 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
013320 
012716 
001772 
000002 
000000 
000776 
000000 
005015 
000122 



013312 000024 
000340 000026 



165736 
000110 
013220 



013312 
000064 
000060 
000054 

165670 



013146 
000340 



047520 042527 



SRDCHR JjCALLsRDCHR TRAP+6( 1 04406) TTY TYPEIN CHARACTER ROUTINE 

SPDLIN nCALLsRDLlN TRAP+7 ( 1 04407 ) TTY TYPEIN STRING ROUTINE 

SRDOCT mCALLsRDOCT TRAP+10( 104410) READ AN OCTAL NUMBER FROM TTY 

SPDDEC nCALLsRDDEC TRAP+1 1 ( 10441 1 ) READ A DECIMAL NUMBER FROM TTY 

.SBTTL POWER DOWN AND UP ROUTINES 



f POWER DOWN ROUTINE 



)'»»#'»##«###««»»««# 



SPWRDNi MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 
BR 



«SILLUP,(a#pWRVEC 

»340,?iPWRVEC+2 

RO,-(SP) 

R1,-(SP) 

R2,-(SP) 

R3,-(SP) 

R4,-(SP) 

R5,-(SP) 

?SWR,-(SP) 

SP,SSAVR6 



fjSET FOR FAST UP 
|PR10|7 

IPUSH RO ON STACK 

»PUSH Ri ON STACK 

?PUSH R2 ON STACK 

fPUSH R3 ON STACK 

IPUSH P4 ON STACK 

jPUSH R5 ON STACK 

JPUSH 9SWR ON STACK 

jfSAVE SP 



#SPWRUP,e#PWRVEC mSET UP VECTOR 
jiHANG UP 



fPOWER UP ROUTINE 



000024 SPWRUPJ MOV 
MOV 
CLR 

ISl INC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
000024 MOV 

000026 MOV 

TYPE 

8PWRMGI .WORD 
MOV 

$PWRAD| .WORD 
RTI 

8ILLUPI HALT 
BR 

$SAVR6l 

$POWER| ,ASCIZ 



#SILLUP,§«PWBVEC 

$SAVR6,SP 

$SAVR6 

$SAVR6 

1$ 

(SP)+,@SWB 

(SPJ+^RS 

(SP)+,R4 

(SP)+,R3 

(SP)+,R2 

(SPJ+fRl 

(SP)+,R0 

»$PWPDN,&#PWRVEC 

S340y@»PWPVEC-f2 

SPOWER 

(PC)+,(SP) 

RESTRT 



.-2 

<15><12>'' POWER" 



>}SET FOR FAST DOWN 
JjGET SP 
JWAIT LOOP FOR THE TTY 
jWAIT FOR THE INC 
;0F WORD 

IPOP STACK INTO 0SWR 
fPOP STACK INTO R5 
»POP STACK INTO R4 
»POP STACK INTO P3 
»POP STACK INTO R2 
fPDP STACK INTO Rl 
fPOP STACK INTO RO 
nSET UP THE POWER DOWN VECTOR 
fPRI0|7 

REPORT THE POWER FAILURE 
IPOWER FAIL MESSAGE POINTER 
IRESTART AT RESTRT 
I RESTART ADDRESS 

I THE POWER UP SEQUENCE WAS STARTED 
J BEFORE THE POWER DOWN WAS COMPLETE 
»PUT THE SP HERE 



013330 105777 166060 



I TRANSMIT INTERRUPT SERVICE ROUTINE FOR 256, BYTE BLOCK TRANSFERS 
XINTI TSTB iDLXCSB j "READY" SET ?7 



MAINDEC-1J«dZDLC»B MACYU 30(1046) 12-JUL-77 iOl02 PAGE 51 

DZDLCe.Pll 06-MAY-77 10104 POWER DOWN AND UP ROUTINES 



2541 
2542 
2543 
2544 
2545 
2546 
2547 
254B 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 



013334 
013336 
013344 
013350 
013354 
013362 
013370 
013372 
013400 
013402 
013410 
013414 



013416 
013422 
013424 
013432 
013436 
013442 
013444 
013450 
013452 
013460 
013464 
013472 
013476 
013504 
013512 
013514 
013522 
013524 
013532 
013536 



100416 
013767 
010667 
005167 
042777 
042777 
000411 
022767 
001405 
117777 
005267 
000002 



105777 
100410 
013767 
010667 
005167 
000415 
005777 
100021 
013767 
010667 
017767 
005167 
042777 
042777 
000411 
022767 
001405 
117777 
005267 
000002 



013546 
013552 
013556 
013560 
013564 
013566 

013570 
013572 

013576 

013600 



177776 
165626 
166046 
000100 
000100 

021660 

166024 
166016 



177776 
165540 
165762 

165742 

177776 
165512 
165722 
165730 
000100 
000100 

022260 

165662 
165676 



166026 
166024 



166032 
166006 



165522 
165512 



165710 
16567b 



165712 
165702 



BMI 


1$ 


MOV 


#»PSW,STMPO 


MOV 


SP,SREG6 


COM 


XFLGO 


BIG 


»100,@DLRCSP 


8IC 


#lOO,eDLXCSR 


BP 


2$ 


CMP 


«DLBUFI,OPTR 


BEQ 


28 


MOVB 


iOPTR,9DLXDBR 


INC 


OPIB 


RTI 





;BP IF YES 

;SAVE THE ERROR PSW 

jSAVE THE ERROR STACK POINTER 

;S£T XMII SOFTWARE ERROR FLAG 

jTURN OFF THE INTERRUPT ENABLES 

;G0 TO EXIT 

;XMITTED 256, BYTES YET ?? 

J BR IF YES 

;OUTPUT A BYTE 

;UPDATE BUFFER POINTER 

JRETURN TO MAINLINE TEST 

I >«»#»#•»#»»»»*(■«■#»##*»»»»»#»■»■»*#»»»»*«**#«■*»##»«#*#«*###«#*#♦#««#* 
jRECEIVER INTERRUPT SERVICE ROUTINE FOP 256, BYTE BLOCK TRANSFERS 

SET 11 

;BH IF YES 

jSAVE THE ERROR PSw 

iSAVR THE ERROR STACK POINTER 

;SET HARD RCVR ERROR FLAG 

fGO EXIT 

jANY SOFT ERRORS 11 

;BR IF NOT 

;SAVE THE ERROR PSW 

jSAVE THE ERROR STACK POINTER 

jSAVE THE ERROR REGISTER IN T^Pl 

;SET THE SOFT ERROR FLAG 

jTURN OFF THE INTR, ENABLES 

;G0 TO EXIT 

;RECEIVED 256, BYTES YET 11 

;BR IF YES 

jINPUT A BYTE FROM THE DLU 

jUPDATE BUFFER POINIEP 

;RETURN TO MAINLINE TEST 

|THE FOLLOWING ROUTINE IS USED BY THE USER UTILITY PROGRAMS TO WAIT 
jA SPECIFIED NO, OF MILLISECONDS BETWEEN CHARACTER TRANSFERS 



TSTB 


?DLRCSR j^DONi 


BMI 


1$ 


MOV 


§#PSW,8TMP0 


MOV 


SP,$REG6 


COM 


RFLGO 


BR 


28 


TST 


PDLRDBR 


BPL 


38 


MOV 


pi*PSW,STMPO 


MOV 


SP,$REG6 


MOV 


iDLRDBR,8TMPl 


COM 


RFLGl 


6IC 


»100,faDLXCSR 


PIC 


»100,9DLRCSR 


BR 


4$ 


CMP 


#BUFEND,IPTP 


BEQ 


48 


MOVB 


&DLRDBR,iIPTR 


INC 


IPTR 


RTI 





013540 017667 000000 000034 DELAYl MOV 



062716 
005767 
001410 
012746 
005316 
001376 

005726 
005367 

001370 

000207 



000002 
000024 



ISl 
281 



ADD 
TST 
BEQ 
MOV 
DEC 
BNE 

TST 
DEC 

BNE 

RTS 



§(P6),DELCNT 

#2,(R6) 

DELCNT 

38 

#226#-{SP) 

(SP) 

28 

(SP) + 
DELCNT 



•GET THE NO, OF MSEC, DELAY COUNT 

jTYPEH IN BY USER 

;SEi UP THIS ROUTINE'S EXIT ADDRESS 

;IS THE DELAV COUNT ZERO? 

;BRANCH IF YES 

;PUSH A 1 MSEC, COUNT TO STACK 

jDECREMENT THE 1 MSEC, COUNT BY 1 

;BRANCH IF 1 MSEC. ^JOT EATEN 

jAWAY YET 

;RESET STACK AFTER 1 MSEC. TIME UP 

jDECREMENT THE TOTAL NO, OF 

jMSECS. COUNT 

;BRANCH IF WE HAVE '^ORE MSECS, 

;T0 WAIT 

jGO BACK TO REISSUE A CHARACTER 
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2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 



013602 000000 



013604 
013610 
013612 
013614 
013620 
013624 
013626 
013630 
013634 
013636 
013640 
013644 
013650 



013654 
013656 
013662 
013666 
013670 
013672 
013674 



013676 

013704 

013712 

013714 

013722 
013726 
013732 



013734 
013740 
013742 

013746 
013750 



013752 
013760 



016700 
006100 
006100 
066700 
010067 
006100 
006100 
066700 
006100 
006100 
010067 
016700 
046700 



001405 
010067 
004767. 
000000 
000207 
001233 
007622 



016767 

162767 

000403 

016767 

005067 
005267 
001405 



105777 
100372 
062716 

000207 
000000 



016767 
016767 



000054 
000046 



000030 
000022 
165432 



000004 
177652 



165306 
000004 



165270 
165264 



000010 
000006 



165236 
165226 



DELCNTi .WORD ;THE NO, OF MSECS, NEEDED TO 

;TRANSPTRE RESIDES HERE 

>THE FOLLOWING ROUTINE IS USED BY USER PROGRAM ))4 AND WILL ALLOW 

>A RANDOM NUMBER OF MILLISECONDS BEFORE TRANSMISSION OF CHARACTER 

J 

STALLI MOV NUMONEfRO ;GET THE LOW LIMIT 

j^ULTIPLY BY 4 



MOV 
ROL 
ROL 
ADD 
MOV 
ROL 
ROL 
ADO 
ROL 
ROL 
MOV 
MOV 
BIC 



NUMONEfRO 

RO 

RO 

NUMTWOrRO 

ROfNUMONE 

RO 

RO 

NUMTWO,R0 

RO 

RO 

RO,NUMTWO 

NUMONE,R0 

STLMSK,R0 



;ADD IN THE HIGH LIMIT 
fSTORE THIS AS WEw LOW LIMIT 
{MULTIPLY Nfew LOW LIMIT BY 4 

•ADD IN THE HIGH hl^lt 
jMULTIPLY BY 4 AGAI^ 



; STORE THIS AS ^JEW HIGH LIMIT 
;SAVE THE RANDOMLY GENERATED NO, 
fSTRIP ALL BUT 1ST 5 BITS SO AS 
;NOT TO ALLOW THE STALL TO BE TOO 
;LAPGE 
BEQ 28 {BRANCH IF RESULT WAS ZERO 

MOV R0,1$ ;SET STALL TIME FOR DELAY ROUTINE 

JSR PC, DELAY -jGO OFF TO STALL 
181 .WORD ?THIS IS WHERE STALL TIME RESIDES 

281 RTS PC ;RETUPN TO ISSUE CHARACTER 

NUMONEI 1233 jLOW LIMIT FOR RANDOM NO, 

NUMTWOl 7622 ;HIGH LIMIT FOR RANDOM NO, 

|THE FOLLOWING ROUTINE CHECKS THE 'DONE' BIT FOR BOTH THE RECEIVER 
jAND TRANSMITTER, THIS ROUTINE IS USED BY PROGRAM #4 



000044 
000036 



TIMERXI MOV 



SUB 



BR 



165270 000026 TiMETXl MOV 



jGET THE TRANSMITTER CONTROL 
{STATUS REGISTER ADDRESS 
{FORM THE RECEIVER CONTROL 
{STATUS REGISTER ADDRESS 
{GO TO TIME OUT THE RECEIVERS' 
{DONE BIT 

{GET THE TRANSMITTER CONTROL 
{STATUS REGISTER ADDRESS 
{INITIALIZE A TIME COUNT 
{INCREMENT THE TIME COUNT 
{BRANCH IF TIME COUNTER OVERFLOWED 
{INDICATING DONE BIT NEVER SET 
{WITH PLENTY OF TIME ELAPSED 
{SEE IF DONE BIT IS SET YET 
{WAIT SOME MORE IF IT ISN'T 
{DONE BIT IS SET - SET UP EXIT 
{RETURN TO SKIP ERROR REPORT 
{RETURN TO PROGRAM #4 
{THIS IS WHERE THE RCSR OR XCSR 
{ADDRESS RESIDES 
{THIS ROUTINE IS USED BY PROGRAMS #4 & 5, AND WILL CHECK FOR CORRECT 
{EXPECTED AND RECEIVED DATA, IN ADDITION TO ANY ERROR BITS 



TCONTI 
181 



281 

DUTI 



CLR 
INC 
BEQ 



TSTB 

BPL 

ADD 

RTS 
.WORD 



$TMP3,DUT 

#4,DUT 

TCONT 

8TMP3,DUT 

8TMP6 
$TMP6 

28' 



PDUT 

18 

#6,9R6 

PC 




165236 DATCHKi MOV 
165200 MOV 



STMP5,STMP6 {GET THE CONTENTS OF THE RECEIVER 

{BUFFER 
|TMP4,SREG2 {STORE THE ADDRESS OF THE RECEIVER 
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2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 



014010 
014016 
014020 



014032 
014034 

014042 
014044 
014046 
014050 



016767 

162767 

016767 

032767 
001013 
004767 



014024 026767 



001406 
016767 

104010 
000401 
104007 
000207 



165174 
000002 
165206 
170000 
000720 
165164 

165172 



165170 
165162 
165160 
165200 

165200 
165130 



ISl 
2$i 



MOV 

SUB 

MOV 

BIT 
BNE 
JSB 



BEQ 
MOV 

ERROR 
BR 

ERROR 
RTS 



SREG2,$REG1 

i2,$REGl 

$THP5,$REG3 

#170000, $TMP6 

1$ 

PC,UpMASK 

$TMP5,STMP14 

2S 

$TMP14,$REG4 

+ 10 
2$ 

+ 7 
PC 



J DATA BUFFER 

;GET THE ADDRESS OF THE RECEIVER . 

jDATA BUFFER 

jFORM THE ADDRESS OF THE RECEIVER 

;STATUS REGISTER FROM IT 

jSTORE THE CONTENTS OF THE RECEIVER 

;DATA BUFFER 

;ARE ANY ERROR BITS SET? 

jBPANCH IF YES 

;G0 TO MASK OFF BITS AS A FUNCTION OF 

jCHARACTER LENGTH( 5» f> , 1, OR 8 BITS) 

jWAS RECEIVED CHARACTER THE 

;SAME AS THE ONE TRANSMITTED? 

{BRANCH IF YES 

f STORE WHAT THE CONTENTS OF THE 

JRECEIVER DATA BUFFER SHOULD BE 

;DATA RECEIVED i^RONGJ 

jGET SET TO RETURN AFTER ERROR REPORT 

jERROR 81T/S SET FROM TRANSMISSION 

;RETURN TH PROGRAM #4 



> SUBROUTINE TO SETUP ERROR INFORMATION FOR ERROR MESSAGES 
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% 



2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 



014052 
014060 
014064 
014066 
014072 
014100 
014104 
014110 
014114 
014120 
014124 
014130 

014132 
0141 40 
014144 
014150 
014154 
014160 
014166 
014172 
014200 
014204 



014206 
014212 
014216 
014222 
014226 
014232 



014234 
014240 
014244 
014250 
014254 
014260 
014266 
014274 
014300 
014304 
014310 
014316 
014322 
014326 
014334 
014342 



013767 
016701 
011203 
010667 
062767 
116700 
010067 
010167 
010267 
010367 
010467 
000207 

013767 
116700 
016701 
010067 
010167 
013767 
010667 
062767 
010267 
000207 



016705 
012725 
016725 
012725 
016715 
000207 



005077 
005077 
005067 
005067 
005067 
012767 
012767 
004767 
004777 
005067 
012767 
005777 
005777 
052777 
052777 
000207 



177776 
165324 

165104 
000002 
164776 
165052 
165050 
165046 
165044 
165042 



177776 
164736 
165240 
165006 
165004 
177776 
165004 
000002 
164762 



165206 
013416 
165060 
013330 
165050 



165154 
165144 
165152 
165150 
165146 
021260 
021660 
000044 
165132 
165130 
000036 
1 65070 
165064 
000100 
000104 



165122 SUER2I MOV 
MOV 
MOV 
MOV 

165076 ADD 

SUERRl! MOVB 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 

165042 SUERTll MOV 
MOVB 
MOV 
MOV 
MOV 
SUERT2I MOV 



165016 
164776 



MOV 
ADD 
MOV 
RTS 



§#PSW,STMPO 

DLPCSR,R1 

(R2),P3 

SP,SREG6 

#2,$REG6 

STSTNMfRO 

RO,SREGO 

R1,$REG1 

R2,SREG2 

R3,SREG3 

R4,SREG4 

PC 

9#PSW,$TMP0 

STSTNM,P0 

DLRCSR,R1 

RO,$REGO 

R1,$REG1 

@»PSW,$TMP1 

SPf$REG6 

#2,SREG6 

R2f $REG2 

PC 



•SAVE THE CPSWJ 

jPUT DEVADH IN Rl 

;PUT WAS INFO IN R3 

;SAVE THE CSPJ 

;CORRECT FOP CALLING JSR 

;PUT TEST NO, Im RO 

JSAVE [RO] THRU [R4j 



{RETURN TO CALLING TEST 



jSAVE THE tPSWJ 

jPUT TEST NO, IN RO 

{PUT DEVADR IN Rl 

ISAVE [ROl 

jSAVE CRIJ 

fSAVE THE CPSW] 

jSAVE THE tSPl 

fCOPPECT FOR CALLING JSR 

jSAVE CR2J 

J RETURN 



{SUBROUTINE TO SETUP VECTORS FOR 256, BYTE BLOCK TRANSFER TESTS 



MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



DLVECT,R5 

»RINT,(R5)+ 

DLPRI,(R5)+ 

#XINT,(R5)+ 

DLPRI,CP5) 

PC 



jGET FIRST VECTOR ADDRESS 
{SET UP RCVR VECTOR 



{SET UP XMIT VECTOR 
{RETURN TO CALLER 



{SUBROUTINE TO PRIME DATA BUFFERS AND DEVICE FOR 256, BYTE TRANSFER 



165144 
165140 



163054 
165052 



PRIME! CLR 
CLB 
CLR 
CLR 
CLR 
MOV 
MOV 
JSR 
JSR 
CLR 
MOV 
TST 
TST 
BIS 
BIS 
RTS 



§DLXCSR 

9DLRCSR 

XFLGO 

RFLGO 

RFLGl 

#DLBUrO,QPTR 

#DLBUFI,IPTP 

PC,CLDLBF 

PC,9LD0UT 

TIMRI 

#30,»TIMR2 

0DLRDBR 

9DLRDBR 

#100,giDLRC5B 

#1O4,0DLXCSR 

PC 



{CLEAR XMIT AND RCVR CSR'S 
{INITIALIZE ERROR FLAGS 



{SET UP OUTPUT POINTER 
{SET UP INPUT POINTER 
{GO CLEAR THE BUFFERS 
{GO SET UP THE PATTERN 
{INIT TIMEOUT COUNTERS 

{FLUSH "DONE" BIT IN RCVR CSR 

{ENABLE RCVR INTR, 

{ENABLE XMIT INTR, AND MAINT MODE 



{THIS ROUTINE IS CALLED TO CLEAR THE INPUT AND OUTPUT BUFFERS 
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2714 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
27b0 
276J 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 



014344 012705 

014350 005025 

014352 022705 

014356 001374 

014360 000207 



014362 
014366 
014370 
014374 
014400 
014402 



014404 
OJ4406 
014412 
014414 
014420 
014422 



014424 
014432 
014436 
014442 
014446 
014450 
014454 
014456 



014460 
014464 
014470 
014474 
014500 
014504 
014510 
014516 
014522 
014524 



014526 
014534 
014542 
014546 



012705 
105025 
112725 
022705 
001372 
000207 



005005 
110565 
005205 
022705 
001372 
000207 



112767 
012705 
116725 
022705 
001403 
105367 
000770 
000207 



012705 
005067 
116725 
105167 
116725 
105267 
116767 
022705 
001362 
000207 



042777 
042777 
012702 
004767 



021260 
022260 



000377 
021660 



021260 
000400 



000377 
021260 
164556 
021660 

164544 



021260 
164530 
164524 
164520 
164514 
164511 
164505 
021660 



000104 
000100 
021260 
000070 



CLDLBFJ MOV #DLBUF0rR5 jRS POINTS TO BEGINNING OF BUFFER AREA 

1$| CLB (P5)+ jCLEAR A WORD 

CMP »BUFEND,R5 >DONE ALL WORDS ?? 

BNE IS jBR IF NOT 

RTS PC ; RETURN TO CALLER 

jTHIS ROUTINE IS CALLED TO SET UP THE NULL»DEL-NULL PATTERN 

LDOUTll MOV «DLBUF0,R5 ! R5 POINTS TO OUTPUT BUFFER 

1$I CLRB (R5)+ yMOVE A NULL CHAR 

MOVB »377,CR5)+ jMOV A DEL CHAR 

CMP #DLBUFI,R5 fALL DONE ?? 

BNE 18 ;BP IF NOT 

RTS PC jPETURN TO CALLER 

fTHIS ROUTINE IS USED TO LOAD AN ASCENDING BINARY COU^T PATTERN 



LDOUT25 CLR 
IS J MOVB 
INC 
CMP 
BNE 
RTS 



R5 

R5,DLBUFO(R5) 

P5 

#400, R5 

1$ 

PC 



;START V«ITH 000 
;LQAD ONE BYTF 
^INCREMENT BYTE 
;DONE 000 THRU 377 ?? 
;BR IF NOT 
J RETURN TO CALLFR 



jTHIS ROUTINE IS USED TO LOAD A DESCENDING BINARY COUNT PATTERN 



164566 LDOUTSJ MOVB 
MOV 
ISI MOVB 
CMP 
BEO 
OECB 



2$J 



BR 
RTS 



#377#STMP7 ;STAPT WITH A 377 BYTE 

#DLBUF0,R5 ;R5 POINTS TO OUTPUT BUFFER 

STMP7,CP5)'»' ;LOAD ONE BYTF 

»DLBUFI#R5 ;ALL DONE ?? 

2$ ;BR IF YES 

$TMP7 J GENERATE NEXT BYTE 

18 ;G0 HOVE IT 

PC ; RETURN TO CALLER 



jTHIS ROUTINE LOADS A COMPLEMENTING WORST CASF PATTERN 



LD0UT4I MOV 
CLR 

1$| MOVB 
COMB 
MOVB 
INCB 
MOVB 
CMP 
BNE 
RTS 



»DLBUF0#R5 

STMP7 

8TMP7,(R5)+ 

8TMP7 

STMP7,(R5)4- 

STMP7+1 

$TMP7+1»STMP7 

»DLBUFIrR5 

1$ 

PC 



;R5 POINTS TO OUTPUT BUFFER 

;INIT, BYTE GENERATOR 

•MOVE A BYTE 

{COMPLEMENT IT 

•NOW LOAD THE I'S COMPLEMENT 

; INCREMENT THE BYTE 

;S£T UP TO LOAD NEXT TWO 

;ALL DONE ?? 

;BR IF NOT 

5 RETURN TO CALLER 



jTHIS ROUTINE CHECKS FOR DATA COMPARE ERRORS IN 256, BYTE BLOCK TRANSFERS 



164660 
164646 



CHKDAT! BIC 
BIC 
MOV 
JSR 



#104,SDLXCSR 
#100»9DLRCSR 
#DLBUF0»R2 
PC, MASKING 



jDISABLE BOTH XMIT AND PCVR INTR, tMAtt. 



;R2 POINTS TO S/B DATA IN OUTPUT BUFFER 
;G0 TO MASK OFF BITS AS A FUNCTION OF 
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2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2BU 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
284S 



014552 
014556 
014560 
014562 
014566 
014570 
014572 
014600 
014604 
014606 
014612 
014614 
014620 
014624 
014632 
014634 
014636 
014640 



012701 
122221 
001004 
022701 
001373 
000207 
013767 
010667 
114204 
042704 
114103 
042703 
004767 
012767 
104003 
005202 
005201 
000750 



014642 005005 



014644 
014652 
014654 

014660 
014666 
014670 

014674 
014702 
014704 

014710 
014714 
014716 
014720 

014724 
014726 
014732 

014734 
014736 
014740 
014742 



022767 
001427 
062705 

022767 
001410 
062705 

022767 
001402 
062705 

016505 
005105 
140S22 
022702 

001374 
012702 
000207 

000377 
000177 
000077 
000037 



177776 
164372 



177400 
177254 
014634 



1$1 
2$: 

164402 3$l 



OOOOIO 
000002 
000007 
000002 
000006 
000002 
014734 

021660 



MOV 

CMPB 

BNE 

CMP 

BNE 

RTS 

MOV 

MOV 

MOVB 

BIC 

MOVB 

BIC 

JSR 

MOV 

ERROR+3 

INC 

INC 

BR 



#DLBUFI,R1 

(R2)+,(R1)+ 

3$ 

#BUFEND,R1 

1$ 

PC 

§#PSW,STMPO 

SP,SREG6 

-(R2),R4 

#177400, R4 

-(R1),R3 

#177400, P3 

PCSUERRl 

«4$,$ESCAPE 

R2 
Rl 
2$ 



{CHARACTER LENGTH(5, 6, 7, OP 8 BITS) 

;R1 POINTS TO WAS DATA IN RCVR, BUFFER 

;DID S/R = WAS ?? 

;BR IF NOT 

{CHECKED ALL BYTES ?? 

{BH IF MOT 

{RETURN TO CALLER 

{SAVE THE CPSW] 

{SAVE THE (SPJ 

{GET THE S/B DATA 

{CLEAR JUNK FROM HI BYTE 

{GET THE WAS DATA 

{CLEAR JUNK FROM HI BYTE 

{GO SET UP ERROR INFO, 

{RETURN TO 4$ AFTER ERROR PRINT 

{DATA COMPARE ERROR 

{REPOSITION BUFFER POINTERS 

{GO CHECK NEXT BYTE 



{THIS ROUTINE IS USED BY THE PATTERN TESTS 

fIT WILL MASK OFF THE CHARACTER SENT OUT BY THE XMITTER 

{BEFORE THE COMPARISON OF DATA OF wHAT WAS RECEIVED AND WHAT WAS TRANSMITTED 

>IS DONE, THE MASKING IS DONE AS A FUNCTION OF CHARACTER LENGTH WHICH 

{CAN BE EITHER 5, 6, 7, OR 8 BITS , 

{INITIALIZE TABLE OFFSET 

{FOP PICKING UP MASK WORD 

{IS THE CHARACTER LENGTH 8 BITS? 

{BRANCH IF IT IS 

{SET up FOR NEXT MASK WORD 

{IT COULD BE THIS ONE 

{IS THE CHARACTER LENGTH 7 BITS? 

{BRANCH IF IT IS 

{SET UP FOR NEXT MASK WORD 

{IT COULD BE THIS ONE 

{IS THE CHARACTER LENGTH 6 BITS? 

{BRANCH IF IT IS 

{SET UP FOR NEXT MASK WORD 

{IT MUST BE THIS ONEJIJl 

{PICK UP THE MASK WORD 

{FORM THE BITS THAT ARE TO BE MASKED 

{MASK A BYTE 

{ARE WE AT THE END OF THE XMITTER 

{OUTPUT BUFFER 

{BRANCH IF NO TO MASK NEXT BYTE 

{RESTORE R2 BEFORE RETURNING 

{RETURN TO MAINLINE CODE 

{8, BITS IN LENGTH 
{7, BITS IN LENGTH 
?6, BITS IN LENGTH 
{5, BITS IN LENGTH 

iTHIS ROUTINE IS USED BY PROGRAMS #4 £. 5 

I IT WILL MASK OFF THE CHARACTER SENT OUT BY THE TRANSMITTER 



MASKING 


« 


CLR R5 




CMP 


#B,,8TMP15 




BEQ 


38 




ADD 


»2,R5 




CMP 


#7.,8TMP15 




BEQ 


IS 




ADD 


«2,RS 




CMP 


#6.,8TMP15 




BEQ 


18 




ADD 


#2,R5 


l$l 


MOV 


CHARL(R5),R5 




COM 


R5 


281 


BICB 


R5,(R2)+ 




CMP 


#DLBUFI,R2 




BNE 


2S 




MOV 


«DLBUF0,R2 


381 


RTS 


PC 


f TABLE 


OF MASK 


WORDS 


CHABLl 


.WORD 


377 




.WORD 


177 




.WORD 


77 




.WORD 


37 
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2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2R98 
2899 
2900 
2901 



014744 016767 164234 



014752 005005 



014754 
014762 
014764 

014770 
014776 
015000 

015004 
015012 
015014 

015020 
015024 
015026 
015032 



015060 
015066 
Ol5o74 
015102 



015104 
015110 
015114 
015120 
015126 
015134 
015140 
015142 



022767 
001423 
062705 

022767 
001410 
062705 

022767 
001402 
062705 

016505 
005105 
140567 
000207 



015034 112767 

015042 112767 

015050 112767 

015056 000412 



1 12767 
112767 
112767 
000400 



010667 
116700 
010067 
016667 
012767 
011667 
104004 
000137 



000010 
000002 
000007 
000002 
000006 
000002 
014734 
164200 



000060 
000060 
000064 



000060 
000061 
000060 



164066 
163766 
164042 
000002 
015142 
164040 

001772 



000632 
000625 
000620 



000606 
000601 
000574 



164054 
164110 



»BEFDRE THE COMPARISON OF DATA OF WHAT WAS RECEIVED AND WHAT WAS 
iTRANSMITTED IS DONE, THE MASKING 15 DONE AS A FUNCTION OF CHARACTER 
fLENGTH WHICH CAN BE EITHER 5, 6, 1, OR 8 BITS, 



164260 UPMASKI MOV 

CLR 

164252 CMP 

BEQ 
ADO 

164236 CMP 

BEQ 
ADD 

164222 CMP 

BEQ 
ADD 

ISl MOV 
COM 
BICB 

2SI RTS 



STMP1,$TMP14 



»8,,$TMP15 

2$ 

# 2 , R5, 

»7,#STMP15 

1$ 

#2,R5 

#6,,STMP15 

1$ 

82, RS 

CHARL(R5),R5 
R5 

R5,STMP14 
PC 



jPICK UP THE CHARACTER THAT WAS 

ISENT OUT FROM THE XMITTER 

lINITIIALIZE TABLE OFFSET 

?FOR PICKING UP MASK WORD 

?IS THE CHARACTER LENGTH 8 BITS? 

^BRANCH IF IT IS 

;SET UP FOR NEXT MASK WORD 

;IT COULD BE THIS 0N£ 

;IS THE CHARACTER LENGTH 7 BITS? 

yBRANCH IF IT IS 

jSET UP FOR NEXT MASK WORD 

»IT COULD BE THIS ONE 

;1S THE CHARACTER LENGTH 6 BITS? 

^BRANCH IF IT IS 

fSET UP FOR NEXT MASK WORD 

rIT MUST BE THIS ONEIUI 

;PICK UP THE MASK wDRD 

;FORM THE BITS THAT ARE TO BE MASKED 

;MASK THE LOW BYTE 

jFETURN TO MAINLINE CODE 



IROUTINE TO SERVICE BUS ERROR TRAPS 



BUSERPi MOVB 
MOVB 
MOVB 
BR 



«60fEM44-46 
#60»EM44-47 
#64fEM4'f50 
TRPCOM 



;SET up ERROR MESSAGE 



;G0 SET up AND REPORT BUS ERROR 
^ROUTINE TO SERVICE RSVD INSTRUCTION TRAPS 



RSVEPRI MOVB 
MOVB 
MOVB 
BR 



J»60#EM4-i-46 
«6l,EM4+47 
#60#EM4+50 
TRPCOM 



jSET UP ERROR MESSAGE 

yGO SET UP AND REPORT RSVD INSTR, ERROR 



» ROUTINE TO SET UP AND REPORT BUS ERROR AND RSVD XnSTP ERRORS 

TRPCOMt MOV SP,SREG6 jSAVE THE TRAP SP 

MOVB STSTNM,RO yPUT TEST NO, IN HO 

MOV RO»$REGO ySAVE TEST » 

MOV 2(SP)fSTMP0 ;SAVE THE ERROR PSW 

MOV #lSfSESCAPE 'GO TO 1$ AFTER ERROR PRINT 

MOV (SP),$REG7 ;SAVE THE ERROR PC 

ERROR+4 ; REPORTED TRAP ERROR 

IS! JMp iSRESTRT ; ATTEMPT TO RESTART THE PROGRAM 

jAND TRY AGAIN 



fERROR MESSAGE INFORMATION 
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2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 



015146 
015154 
015162 
015170 
015176 
015204 
015212 
015215 
015222 
015230 
015236 
015244 
015252 
015260 
015266 

015274 
015302 
015310 



015312 
015320 
015326 
015334 
015336 
015344 
015352 
015360 
015366 
015374 
015402 
015410 
015416 
015424 
015432 

015434 
015442 
015450 



015456 
015464 
015472 
015500 
015506 
015514 
015522 
015530 
015536 
015544 



046104 
043505 
020122 
042522 
040503 
052040 
052125 
040 
020040 
024523 
051450 
020040 
020040 
042101 
043505 

001116 
001162 
000000 



046104 
043505 
020122 
000122 
024040 
020040 
020051 
050123 
052040 
020040 
051104 
040507 
053440 
020040 
000 
015434 
001116 
001162 
001170 



046104 
052101 
050115 
051105 
024040 
020040 
020051 
050123 
052040 
020040 



030461 
051511 
042522 
041516 
051525 
046511 
000 
050050 
020040 
020040 
024520 
042524 
042040 
020122 
042101 

001202 
001164 



030461 051040 
051511 042524 
051105 047522 



041520 
024040 
020040 
020051 
051505 
042504 
020040 
051104 
051501 
051440 



020051 
051520 
024040 
020040 
020124 
040526 
042522 
020040 
020040 
041057 



001202 001176 
001164 001166 
001172 000000 



030461 
020101 
051101 
047S22 
041520 
024040 
020040 
020051 
051505 
040527 



042040 
047503 
020105 
000122 
020051 
051520 
024040 
020040 
020124 
040523 



> INFORMATION FOR ERROR MESSAGE 1 



051040 
042524 
042506 
020105 
042105 
047505 

024503 
050050 
020040 
020040 
052123 
053105 
051040 
000122 

001176 
001166 



EMlt 



.ASCIZ 'DLll REGISTER REFERENCE CAUSED TIMEOUT' 



(PS) 



TEST DEVADR REGADR' 



.EVEN 
DTI I 



.WORD SERRPC,$TMP0,SREG6,$REG0,$REG1,SREG2#0 



I INFORMATION FOR ERROR MESSAGE 2 



EM2J 



DH2I 



.ASCIZ 'DLll REGISTER ERROR' 



(PC) 



TEST DEVADR REGADR 



.EVEN 
DT2I 



.WORD SERRPC,$TMP0,8REG6#SREG0,$REG1,SREG2,SREG3,$REG4,0 



I INFORMATION FOR MESSAGE 3 

EM3I .ASCIZ 'DLll DATA COMPARE ERROR' 



TEST WASADR SHBADR 



MAINDEC-lt-DZDLC«B MACYU 30(1046) 12-JUL»77 10|02 PAGE 59 
DZDLCB.Pli Oe-MAY-?? 10|04 POWER DOWN AND UP POUTINES 



2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 



015552 
015560 
015566 
015574 
015602 

015604 
015612 
015620 



015626 
015634 
015642 
015650 
015656 
015664 
015672 
015700 
015706 
015714 
015722 
015730 

015736 
015744 



015750 
015756 
015764 
015772 
016000 
016006 
016014 
016022 
016025 
016032 
016040 
016046 
016054 
016062 
016070 
016076 
016104 
016112 

016114 
U16122 
016130 



051104 
040502 
020040 
020040 
000102 

001116 
001162 
001170 



047125 
052103 
040522 
053040 
020122 
041517 
020116 
024040 
020040 
020051 
050123 
052040 

001200 
001162 



046104 
043117 
047522 
051101 
051106 
026107 
053117 
024516 
040 
020040 
024523 
051450 
020040 
020040 
042101 
043505 
020040 
000051 

001116 
001162 
001170 



020040 
051104 
040527 
020040 



001202 
001164 
001172 



054105 
042105 
020120 
041505 
052101 
052101 
020040 
041520 
024040 
020040 
020051 
051505 

001202 
000000 



030461 
020124 
020122 
052111 
046501 
047440 
051105 
000 
050050 
020040 
020040 
024520 
042524 
042040 
020122 
042101 
051050 



001202 
001164 
000000 



044123 
020040 
020123 
027523 



001176 
001166 
000000 



042520 
052040 
047524 
047524 
046040 
047511 
000040 
020051 
051520 
024040 
020040 
000124 

001176 



051440 
051105 
050050 
026131 
047111 
020122 
052522 

024503 
050050 
020040 
020040 
052123 
053105 
051040 
020122 
043505 



,EVEN 

DT3 1 , WORD SERRPC , STMPO , 9REG6 , 6R€®0 , 8RES1 , SREGa , 3PEG3 1 $ REG4 , 



J INFORMATION FOR MESSAGE 4 

EM4i .ASCIZ 'UNEXPECTED TRAP TO VECTOR AT LOCATION 



DH4I .ASCIZ ' (PC) (PS) (SP) TEST' 



.EVEN 

DT4I .WORD $REG7,$TMPO«8REO6»tRE®0#O 



J ERROR INFORMATION FOR ERROR MESSAGE 5 

EM5l .ASCIZ 'DLll SOFT ERROR (MRITY, FRAMING, OR OVERRUN)' 



TEST DEVADR REGAOR 



001176 
001166 



.EVEN 

DT5I .WORD 



$ ERRPC , S TMPO , S REG6 , 8 REGO , SREGl , S REG2 , S REG3 , 



I INFORMATION FOR ERROR MESSAGE 6 
016134 024040 041520 020051 DH6| .ASCIZ ' (PC) (PS) (SP) 
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3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 



016142 
016150 
016156 
016164 
016172 

016174 
016202 



016206 
016214 
016222 
016230 
016236 
016244 

016246 
016254 



016260 
016266 
016274 
016302 
0163i0 
016316 
016324 

016326 
016334 



016342 
016350 
016356 
016364 
016372 
016400 
016406 
016414 
016421 
016426 
016434 
016442 
016450 
016456 
016464 
016472 
OI65OO 
OI65O2 
016510 
OI65I6 
016524 



020040 
O2O051 
050123 
042522 
000 
016174 
001116 
001166 



024040 
020040 
051104 
040507 
024040 
000 
016246 
001116 
001170 



024040 
020040 
051104 
040507 
024040 
020040 
000102 

001116 
001170 



052516 
046105 
020114 
047105 
046511 
040440 
046114 
020107 
102 
020131 
052517 
050505 
020105 
052517 
043040 
044527 
000103 
044502 
042040 
047503 
042523 



024040 
020040 
020051 
040507 



001204 
000000 



041520 
042504 
020040 
051104 
042522 



001164 
000000 



041520 
042504 
020040 
051104 
042522 
020040 



001164 
001172 



046114 
047055 
042523 
042503 
047505 
020124 
053517 
041520 
047111 
050125 
052116 
042525 
044524 
020124 
046117 
043516 

040516 
053517 
047125 
052521 



051520 
024040 
020040 
051104 



020051 
040526 
042522 
020040 
024507 



020051 
040526 
042522 
020040 
024507 
027523 



001166 
000000 



042055 
046125 
052521 
052040 
052125 
047506 
047111 
000 
051101 
041440 
051440 
041516 
042515 
052101 
047514 
050040 

054522 
020116 
020124 
047105 



.EVEN 
DT6I 



SERRPC, STMPl , SREG6, SREG2, 



J INFORMATION FOR ERROR MESSAGE 7 

DH7| .ASCIZ ' (PC) DEVADR REGADR 



.EVEN 
DT7| 



8 ERRPC # 8 PEGl , 8 REG2 , &R€G3 , 



I INFORMATION FOR ERROR MESSAGE 10 

DHIOI .ASCIZ ' (PC) DEVAPR REGADR (PEG) S/B 



.EVEN 

DTIOI .WORD 8ERRPC»SREG1,SREG2,SPEG3,8REG4,0 

fMISCELLANEOUS MESSAGES 

XMSGll .ASCIZ 'NULL-DEL-NULL SEQUENCE TIMEOUT AT FOLLOWING PC 



XMSG2I .ASCIZ 'BINARY UP COUNT SEQUENCE TIMEOUT AT FOLLOWING PC 



XMSG3I .ASCIZ 'BINARY DOWN COUNT SEQUENCE TIMEOUT AT FOLLOWING PC 
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3070 


0165 32 


042503 


052040 


046511 


3071 


016540 


047505 


052125 


040440 


3072 


016'S46 


020124 


047506 


046114 


3073 


016554 


053517 


047111 


020107 


3074 


016562 


041520 


000 




3075 


016565 


127 


051117 


052123 XMSG4I 


3076 


016572 


041440 


051501 


020105 


3077 


016600 


040520 


052124 


051105 


3078 


016606 


020116 


042523 


052521 


3079 


016614 


047105 


042503 


052040 


3080 


016622 


046511 


047505 


052125 


3081 


016630 


040440 


020124 


047506 


3082 


016636 


046114 


053517 


047111 


3083 


016644 


020107 


041520 


000 


3084 










3085 


016651 


015 


046412 


044501 STMESI 


3086 


016656 


042116 


041505 


030455 


3087 


016664 


026461 


055104 


046104 


3088 


016672 


026503 


006502 


000012 


3089 










3090 


016700 


005015 


047531 


020125 PR0G2MI 


3091 


016706 


040510 


042526 


051440 


3092 


016714 


046105 


041505 


042524 


3093 


016722 


020104 


051120 


043517 


3094 


016730 


040522 


020115 


047516 


3095 


016736 


020056 


006462 


000012 


3096 


016744 


005015 


047531 


020125 PR0G3MI 


3097 


016752 


04O510 


042526 


051440 


3098 


016760 


046105 


041505 


042524 


3099 


016766 


020104 


051120 


043517 


3100 


016774 


040522 


020115 


047516 


3101 


017002 


020056 


006463 


000012 


3102 


017010 


005015 


047531 


020125 PR0G4M: 


3103 


017016 


040510 


042526 


051440 


3104 


017024 


046105 


041505 


042524 


3105 


017032 


020104 


051120 


043517 


3106 


017040 


040522 


020115 


0475J6 


3107 


017046 


020056 


006464 


000012 


3108 


017054 


005015 


047531 


020125 PR0G5MI 


3109 


017062 


040510 


042526 


051440 


3110 


017070 


046105 


041505 


042524 


3111 


017076 


020104 


051120 


043517 


3112 


017104 


040522 


020115 


047516 


3113 


017112 


020056 


006465 


000012 


3114 


017120 


005015 


051124 


047101 XDBJ 


3115 


017126 


046523 


052111 


0^2524 


3116 


017134 


020122 


047504 


042516 


3117 


017142 


041040 


052U1 


047040 


3118 


017150 


053105 


051105 


051440 


3119 


017156 


052105 


020040 


041520 


3120 


1 7 J 6 4 


020075 


000 




3121 


017167 


015 


051012 


041505 RDBj 


3122 


017174 


044505 


042526 


020122 


3123 


017202 


047504 


042516 


041040 


3124 


017210 


052111 


047040 


053105 


3125 


017216 


051105 


051440 


052105 



.ASCIZ 'WORST CASE PATTERN SEQUENCE TIMEOUT AT FOLLOWING PC* 



.ASCIZ <15><12>'MAINDEC-11-DZDLC-B'<15><12> 



.ASCIZ <15><12>'Y0U HAVE SELECTED PROGRAM NO, 2'<15><12> 



.ASCIZ <15><12>'Y0U HAVE SELECTED PROGRAM NO, 3'<15><12> 



.ASCIZ <15><12>'yOU HAVE SELECTED PROGRAM NO, 4'<15><12> 



.ASCIZ <15><12>'YOU HAVE SELECTED PROGRAM NO. 5'<15><12> 



.ASCIZ <15><12>'TRANSMITTER DONE BIT NEVER SEX PC= 



.ASCIZ <15><12>'RECEIVER DONE BIT NEVER SET PCs 
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3126 


017224 


020040 


041520 


020075 


3127 


017232 


000 






3128 










3129 










3130 


017233 


015 


053412 


040510 


3131 


017240 


020124 


051511 


052040 


3132 


017246 


042510 


041440 


040510 


3133 


017254 


040522 


052103 


051105 


3134 


017262 


046040 


047105 


05 2107 


3135 


017270 


020110 


032450 


033054 


3136 


017276 


033454 


047440 


020122 


3137 


017304 


020070 


044502 


051524 


3138 


017312 


037451 


000 




3139 


017315 


015 


042012 


020117 


3140 


017322 


047531 


a20125 


044527 


3141 


017130 


044123 


052040 


020117 


3142 


017336 


042524 


052123 


047440 


3143 


017344 


044124 


051105 


052040 


3144 


017352 


040510 


020116 


044124 


3145 


017160 


105 






3146 


017161 


015 


042012 


043105 


3147 


017366 


052501 


052114 


042040 


3148 


017374 


053105 


041511 


020105 


3149 


017402 


030450 


030057 


036440 


3150 


017410 


054440 


051505 


047057 


3151 


017416 


024517 


000077 




3152 


017422 


005015 


044127 


052101 


3153 


017430 


044440 


020123 


044124 


3154 


017 436 


020105 


051461 


020124 


3155 


017444 


042522 


042503 


053111 


3156 


017452 


051105 


051440 


040524 


3157 


017460 


052524 


020123 


042522 


3158 


017466 


044507 


052123 


051105 


3159 


017474 


040440 


042104 


042522 


3160 


017502 


051523 


020077 


000040 


3161 


017510 


005015 


044127 


052101 


3162 


017516 


044440 


020123 


044124 


3163 


017524 


020105 


051461 


020124 


3164 


017532 


042522 


042503 


053111 


3165 


01-7540 


051105 


020123 


042526 


3166 


017546 


052103 


051117 


040440 


3167 


017554 


042104 


042522 


051523 


3168 


017562 


020077 


000040 




3169 


017566 


005015 


047504 


054440 


3170 


017574 


052517 


053440 


047101 


3171 


017602 


020124 


04-7524 


052040 


3172 


017610 


051505 


020124 


052515 


3173 


017616 


052114 


050111 


042514 


3174 


017624 


042040 


053105 


0415U 


3175 


017632 


051505 


030440 


030057 


3176 


017640 


054475 


051505 


047057 


3177 


017646 


037517 


020040 


000 


3178 


017653 


015 


053412 


040510 


3179 


017660 


020124 


051511 


052040 


3180 


017666 


042510 


051440 


040524 


3181 


017674 


052524 


020123 


042522 



; MESSAGES SEEKING USER RESPONSE 

LENGTHi .ASCIZ <15><12>'WHAT IS THE CHARACTER LENGTH (5,6,7 OR 8 BITS)?' 



DEFAULT! .ASCII <15><12>'D0 YOU WISH TO TEST OTHER THAN THE* 



.ASCIZ <15><12>'DEFAULT DEVICE (1/0 a YES/NO)?' 



MFIRSTDJ, ASCIZ <15><12>'WHAT IS THE 1ST RECEIVER STATUS REGISTER ADDRESS? 



MVECTi .ASCIZ <I5><12>'WHAT IS THE 1ST RECEIVER"S VECTOR ADDRESS? 



MULDEVI .ASCIZ <15><12>'D0 YOU WANT TO TEST MULTIPLE DEVICES l/OsYES/NO? 



MLASTDl .ASCIZ <15><12>'WHAT IS THE STATUS REGISTER ADDRESS OF THE LAST RECEIVER? 
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3182 


017702 


044S07 


052123 


051105 


3183 


017710 


040440 


042104 


042522 


3184 


017716 


051523 


047440 


020106 


3185 


017724 


044124 


020105 


040514 


3186 


017732 


052123 


051040 


041505 


3187 


017740 


044505 


042526 


037522 


3188 


017746 


020040 


000 




3189 


017751 


015 


051412 


046517 


3190 


017756 


052105 


044510 


043516 


3191 


017764 


053440 


047522 


043516 


3192 


017772 


040455 


051516 


042527 


3193 


020000 


020122 


044124 


020105 


3194 


020006 


040514 


052123 


050440 


3195 


020014 


042525 


052123 


047511 


3196 


020022 


020116 


043501 


044501 


3197 


020030 


020516 


020040 


000 


3198 


020035 


015 


053412 


040510 


3199 


020042 


020124 


051511 


054440 


3200 


020050 


052517 


020122 


047111 


3201 


020056 


042524 


051122 


050125 


3202 


020064 


020124 


051120 


047511 


3203 


020072 


044522 


054524 


046040 


3204 


020100 


053105 


046105 


020077 


3205 


020106 


000040 






3206 


020110 


005015 


051120 


043517 


3207 


020116 


040522 


020115 


042504 


3208 


020124 


044526 


042503 


040440 


3209 


020132 


052103 


053111 


020105 


3210 


020140 


047514 


040503 


044524 


3211 


020146 


047117 


051440 


047510 


3212 


020154 


051527 


047040 


020117 


3213 


020162 


042504 


044526 


042503 


3214 


020170 


040440 


052103 


053111 


3215 


020176 


105 






3216 


020177 


015 


051412 


052105 


3217 


020204 


051440 


044527 


041524 


3218 


020212 


020110 


020060 


047524 


3219 


020220 


040440 


047440 


042516 


3220 


020226 


024040 


024461 


040440 


3221 


020234 


042116 






3222 


020236 


005015 


044510 


020124 


3223 


020244 


047503 


052116 


047111 


3224 


020252 


042525 


052040 


020117 


3225 


020260 


047507 


041040 


041501 


3226 


020266 


020113 


047524 


042040 


3227 


020274 


053105 


041511 


020105 


3228 


020302 


042523 


042514 


052103 


3229 


020310 


047511 


020116 


043501 


3230 


020316 


044501 


000116 




3231 


020322 


005015 


044127 


052101 


3232 


020330 


044440 


020123 


044124 


3233 


020336 


020105 


051124 


047101 


3234 


020344 


046523 


052111 


042524 


3235 


020352 


020122 


040504 


040524 


3236 


020360 


041040 


043125 


042506 


3237 


020366 


020122 


042101 


051104 



MRANGEl .ASCIZ <15><1 2>'S0METHING WRONG-ANSWER THE LAST QUESTION AGAiNl 



PLEVELl .ASCIZ <15><12>'WHAT IS YOUR INTERRUPT PRIORITY LEVEL? 



FOULUPt .ASCII <15><12>'PR0GRAM DEVICE ACTIVE LOCATION SHOWS NO DEVICE ACTIVE' 



.ASCII <15><12>'SET SWITCH TO A ONE (1) AND* 



.ASCIZ <15><12>'HIT CONTINUE TO GO BACK TO DEVICE SELECTION AGAIN' 



LINTADJ .ASCIZ <15><12>'WHAT IS THE TRANSMITTER DATA BUFFER ADDRESS? 
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3238 


020374 


051505 


037523 


020040 


3239 


020402 


000 






3240 


020403 


015 


053412 


040510 SELCARi 


3241 


020410 


020124 


051511 


052040 


3242 


020416 


042510 


041440 


040510 


3243 


020424 


040522 


052103 


051105 


3244 


020432 


052040 


020117 


042502 


3245 


020440 


052040 


040522 


051516 


3246 


020446 


044515 


052124 


042105 


3247 


020454 


024040 


041517 


040524 


3248 


020462 


020114 


051501 


044503 


3249 


020470 


020111 


027105 


027107 


3250 


020476 


040440 


030475 


030460 


3251 


020504 


037451 


020040 


000 


3252 


02O5II 


015 


053412 


040510 SELDLYi 


3253 


O2O5I6 


020124 


051511 


052040 


3254 


020524 


042510 


042040 


051505 


3255 


020532 


051111 


042105 


046440 


3256 


020540 


042523 


027103 


042040 


3257 


020546 


046105 


054501 


024040 


3258 


020554 


041517 


040524 


020114 


3259 


020562 


027105 


027107 


030440 


3260 


020570 


036460 


024070 


030061 


3261 


020576 


024451 


020077 


000040 


3262 


020604 


005015 


051511 


040440 RSTALLI 


3263 


020612 


051040 


047101 


047504 


3264 


020620 


020115 


040527 


052111 


3265 


020626 


052040 


046511 


020105 


3266 


020634 


046450 


042523 


027103 


3267 


020642 


020051 


042504 


044523 


3268 


020650 


042522 


020104 


030440 


3269 


020656 


030057 


054475 


051505 


3270 


020664 


047057 


037517 


020040 


3271 


020672 


000 






3272 


020673 


015 


054412 


052517 FAILSAI 


3273 


020700 


044040 


053101 


020105 


3274 


O2O7O6 


053523 


034122 


051440 


3275 


020714 


052105 


044440 


042116 


3276 


020722 


041511 


052101 


047111 


3277 


020730 


020107 


047514 


050117 


3278 


020736 


047440 


020116 


042524 


3279 


020744 


052123 






3280 


020746 


005015 


040510 


042526 


3281 


020754 


054440 


052517 


046440 


3282 


020762 


042117 


043111 


042511 


3263 


020770 


020104 


044124 


020105 


3284 


020776 


0S1120 


050117 


051105 


3285 


021004 


046040 


041517 


0^2101 


3286 


021012 


047511 


051516 


043040 


3287 


021020 


051117 


052040 


042510 


3288 


021026 


005015 


042504 


044S26 


3289 


021034 


042503 


052040 


040510 


3290 


021042 


020124 


047531 


020125 


3291 


021050 


040527 


052U6 


052040 


3292 


021056 


020117 


042524 


052123 


3293 


021064 


077 







.ASCIZ <15><12>'WHAT IS THE CHARACTER TO BE TRANSMITTED (OCTAL ASCII E.G. A=10J 



.ASCIZ <15><12>'WHAT IS THE DESIRED MSEC, DELAY (OCTAL E.G. 10=8(10))? 



.ASCIZ <15><12>'IS A RANDOM WAIT TIME (MSEC.) DESIRED l/0=YeS/NO? 



.ASCII <15><12>'YOU HAVE SWR9 SET INDICATING LOOP ON TEST' 



.ASCII <15><12>'HAVE YOU MODIFIED THE PROPER LOCATIONS FOR THE' 



.ASCII <15><12>'DEVICE THAT YOU WANT TO TEST?' 
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3294 


021065 


015 


044412 


020106 


3295 


021072 


0471523 


026440 


050040 


3296 


021100 


042522 


051523 


052040 


3297 


021106 


042510 


041440 


047117 


3298 


021114 


044524 


052516 


020105 


3299 


021t22 


053523 


052111 


044103 


3300 


O21130 


005015 


043U1 


047040 


3301 


021136 


052117 


026440 


046440 


3302 


021144 


042117 


043U1 


020131 


3303 


021152 


044124 


020105 


051120 


3304 


021160 


050117 


051105 


046040 


3305 


021156 


041517 


052101 


047511 


3306 


02tt74 


051516 


020054 


044124 


3307 


021202 


047105 






3308 


021204 


005015 


042522 


052123 


3309 


021212 


051101 


020124 


044124 


3310 


021220 


020105 


051120 


043517 


3311 


021226 


040522 


020115 


052101 


3312 


021234 


040440 


042104 


042522 


3313 


021242 


051523 


031040 


030060 


3314 


021250 


000 






3315 










3316 


021251 


040 


020075 


041520 


3317 


021256 


000040 






3318 










3319 










3320 










3321 










3322 


021360 


000400 






3323 










3324 










3325 


021660 


000400 






3326 










3327 










3328 










3329 


022260 


000000 






3330 










3331 




000001 







.ASCII <15><12>*IF SO " PRESS THE CONTINUE SWITCH* 



.ASCII <15><12>'IF NOT • MODIFY THE PROPER LOCATIONS, THEN' 



.ASCIZ <15><12>'PESTABT THE PROGRAf* AT ADDRESS 200' 



PCMSGl .ASCII ' = PC 
.ASCIZ ' ' 

.EVEN 

f512, WORDS RESERVED FOR TWO 256, BYTE INPUT/OUTPUT DATA BUFFERS 



DLBUFOj ,BLKB 
DLBUFIl ,BLKB 



BUFENDl 
.END 



jRSVU FOR OUTPUT BUFFER 

ITHIS IS THE DATA BEING SENT OUT 

;BY THE TRANSMITTER 

IRSVD FOR INPUT BUFFER 

JTHIS IS THE DATA THAT WAS PICKED 

;UP BY THE RECEIVER (I.E. DATA 

jSENT BY THE TRANSMITTER - HOPEFULIiY) 

yTAG MARKS END OF BUFFERS 
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ACTPEG 


001274 


BASEAD 


001264 


BASFIV 


001270 


BEGIN 


001446 


BITO = 


oooooi 


BITOO 3 


OOOOOl 


BITOl = 


000002 


BIT02 = 


000004 


BIT03 = 


ooooio 


BIT04 = 


000020 


BIT05 s 


000040 


BIT06 3 


OOOiOO 


BIT07 a 


000200 


BIT08 = 


000400 


BIT09 s 


ooiooo 


BITl = 


000002 


BITIO s 


002000 


BITU = 


004000 


BIT12 a 


010000 


BITU = 


020000 


BIT14 s 


040000 


BIT15 a 


100000 


BIT2 s 


000004 


BIT3 s 


ooooio 


BIT4 s 


000020 


BITS s 


000040 


BIT6 a 


000100 


BIT7 a 


000200 


BITS a 


000400 


BIT9 a 


ooiooo 


BPTVECa 


000014 


BUFEND 


022260 


BUSEPR 


015034 


CHARL 


014734 


CHKOAT 


014526 


CLDLBF 


014344 


CONOUE 


002626 


CR a 


oooois 


CRLF a 


000200 


DATCHK 


013752 


DDISP a 


177570 


DEFAUL 


017315 


DELAY 


013540 


DELCNT 


013602 


DHl 


015215 


DHIO 


016260 


DH2 


015336 


DH3 


OI55O6 


DH4 


015700 


DH5 


016025 


DH6 


016134 


DH7 


016206 


DISPLA 


001142 


DISPRE 


000174 


DLADDR 


010070 


DLBASE 


001260 



266« 
252« 
259# 

46 
152# 
142# 
141» 
140» 
139» 
138# 
137# 
136# 
135« 
134# 
133» 
151« 
132# 
131# 
130* 
129« 
128ft 
127# 
150# 
149« 
148<i 
147# 
146# 
145» 
144ft 
143» 
159# 
1133 
486 
2830 
1135 
2720 
626 
67# 
68# 
1617 
74» 
531 
1420 
2582» 
317 
366 
324 
331 
338 
345 
352 
359 
196« 
43# 
480 
246# 



621» 
573» 
593» 
393» 
560 
152 
151 
150 
149 
146 
147 
146 
145 
144 
143 
1003 
1940 
1903 

1947 

1874 

937 

812 

967 

1037 
858 



1190 

2873# 

2839# 

1192 

2735# 

670 

2375 

2346 

1725 

196 

3139# 

1506 

2585 

2911# 

3037« 

2930# 

29521) 

2977» 

2996# 

3013# 

30251 

420* 

428 

571 

479* 



653« 

659» 

1791* 



1886 
1896 
1017 



949 
818 
981 

1043 
864 



2866 
1249 

682# 
23'85 
2385 
2650« 

420 

2582» 
2592» 



654» 
660 
1806 



1955 
1062 



966 
882 



1061 
881 



2619 
2597# 



664» 

667» 

1824« 



1776 

675* 
1826 



1800 
1788* 



980 
893 



982 
906 



1004 
936 



1016 
948 



1018 
1501 



1076 
1603 



1743# 
36 7 » 



1808 
S70 



1828 
1743 



1745* 1747 



1753» 1755 



1804» 1825« 
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DLBUFI 


021660 


2548 


2719 


2746 


2764 


2780 


2791 


2833 


3325« 












DLBUFO 


021260 


2718 


2735 


2743 


2753* 


2762 


2773 


2788 


2836 


3322# 










DLPPI 


001302 


282« 
2708 


440* 


696* 


702* 


703* 


704* 


705* 


706* 


707 


830 


875 


1056 


2706 


DLBCSR 


001410 


374# 


508» 


714* 


732 


791 


857 


879 


934 


937 


949 


964 


968 


982 






1000 


1004 


1018 


1035 


1060 


1141* 


1148 


1157 


1166 


1198* 


1205 


1214 


1223 






1255» 


1262 


1271 


1280 


1312* 


1318 


1326 


1334 


1743* 


1813* 


2545* 


2558 


2571* 






2679 


2693 


2714* 


2726* 


2787* 


















DLRDBR 


001412 


375# 
1815 


509 
2564 


510 
2568 


715 
2575 


716 
2724 


762 
2725 


916 


1167 


1224 


1281 


1335 


1747* 


1814 


DLVECT 


001420 


378# 


482» 


590* 


592 


593 


828 


873 


1054 


1806* 


1826* 


2704 






DLXCSP 


001414 


376# 


507* 


713* 


747 


801 


811 


833 


1091 


1110 


1142* 


1149 


1199* 


1206 






1256# 


1263 


1313* 


1319 


1751* 


1812* 


2540 


2546* 


2570* 


2713* 


2727* 


2786* 




DLXDBB 


OOI4I6 


377# 


777 


917 


1755* 


2550* 


















DSWP a 


177570 


73« 


195 


419 






















DTI 


015274 


318 


2920» 
























DTIO 


016326 


367 


3045# 
























DT2 


015434 


325 


2942# 
























DT3 


015604 


332 


2964# 
























DT4 


015736 


339 


2983# 
























DT5 


016114 


346 


3007# 
























DT6 


016174 


353 


3020« 
























DT7 


016246 


360 


3032# 
























OUT 


013750 


2627* 


2629* 


2633* 


2640 


2645# 


















EMTVECa 


000030 


162» 


404* 


405* 


1357* 


1358* 


1440* 


1441* 


1525* 


1526* 


1634* 


1635* 






EMI 


015146 


316 


351 


2904# 






















EM2 


015312 


323 


2926# 
























EM3 


015456 


330 


365 


2948# 






















EM4 


015626 


337 


2873» 


2874* 


2875* 


2880* 


2881* 


2882* 


2970J» 












EM5 


015750 


344 


358 


2988» 






















ERRVECa 


000004 


155# 


417 


418* 


429* 


486* 


487* 


730 


731* 


739* 


745 


746* 


754* 


760 






761* 


769» 


775 


776* 


784* 


1386 


1387* 


1396* 


1398* 


1468 


1469* 


1478* 


1480* 






1553 


1554» 


1563* 


1565* 


1662 


1663* 


1672* 


1674* 


1879 


1880* 


1882* 


18B5* 




FAILSA 


020673 


463 


3272» 
























FIRSTD 


002200 


549» 


601 
























FLUSH 


002724 


536 


713» 
























FOULUP 


020110 


1778 


3206# 
























GNS a 


»»#»»» u 


42 


2478 


2479 


2480 


2481 


2482 


2485 


2486 


2487 


2488 








GO 


002100 


506 


520« 


598 






















HOWMAN 


002376 


594 


605« 
























HT a 


000011 


65# 


2344 


2385 






















INTFLG 


001444 


38e# 


827* 


835 


845* 


876* 


888 


909* 


1058* 


1063 


1074* 








lOTVECs 


000020 


160» 


402» 


403* 






















IPTP 


001434 


384» 


1133 


1190 


1247 


1304 


2573 


2575* 


2576* 


2719* 










KEEPAD 


001262 


248# 


570» 


573 


667 


675 


1823 
















KEEPIV 


001266 


255« 


592» 


1824 






















LASTAD 


001300 


278» 


643* 


660 






















LASTD 


002446 


620 


6271! 


720 






















LDOUT 


001436 


385» 


1125» 


1182* 


1239* 


1296* 


2721 
















LDOUTl 


014362 


1125 


2743« 
























LD0UT2 


014404 


1182 


2752» 
























LD0UT3 


014424 


1239 


276H 
























LD0UT4 


014460 


1296 


2773» 
























LENGTH 


017233 


520 


1583 


1678 


3130» 




















LESSl 


001304 


284« 


707» 


709* 


711* 




















LF a 


OOO0I2 


66# 


2379 


2385 
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lintad 


020322 


1361 


1444 


1529 


1638 


323U 




MASKIN 


014642 


2789 


2816# 










MFIRST 


017422 


549 


3152# 










hlastd 


017653 


630 


3178* 










MRANGE 


017751 


677 


3J89« 










MULDEV 


017566 


605 


3169» 










HULTD 


001272 


262» 


431* 


612* 


615* 


618 


1773 ' 1783* 


MVECT 


017510 


574 


316H 










NUMONE 


013672 


2602 


2606* 


2613 


2622» 






NUMTWO 


013674 


2605 


2609 


2612* 


2623# 






ONCE 


002054 


467 


496 


5071 








OPTR 


001432 


383# 


2548 


2550 


2551* 


2718* 




PCMSG 


021251 


465 


33l6» 










PIRQ a 


177772 


72S 












PIRQVEs 


000240 


166# 












PLEVEL 


020035 


688 


3198« 










PRG2 


006344 


47 


1354» 










PRG2A 


006404 


136U 


1426 










PBG2B 


006524 


1403» 












PBG3 


006604 


48 


1437!» 










PRG3A 


006644 


1444# 


1512 










PRG3B 


006764 


1485# 












PRG4 


007054 


49 


1522# 










PRG4A 


007114 


15291 


1621 










PRG4B 


007246 


1575# 












PRG4C 


007260 


1583# 


1624 










PRG5 


007446 


50 


1631# 










PR65A 


007506 


1638« 


1730 










PRG5B 


007676 


1697# 


1727 










PRG5C 


007626 


1678# 


1733 










PRIME 


014234 


1126 


1183 


1240 


1297 


2713# 




PR0G2M 


016700 


1359 


3090» 










PR0G3M 


016744 


1442 


30968 










PR0G4M 


017010 


1527 


3102« 










PR0Q5M 


017Q54 


1636 


3108» 










PRO a 


000000 


e9# 












PRl a 


000040 


90# 












PR2 a 


000100 


91# 












PR3 a 


000140 


92« 












PR4 a 


000200 


93« 












PR5 a 


000240 


94« 












PR6 a 


000300 


95# 












PR7 a 


000340 


96# 












PS a 


177776 


69# 


70 










PSW a 


177776 


70# 


892 


2542 


2560 


2566 


2678 2691 2696 2797 


PWBVECa 


000024 


161# 


408* 


409* 


2494* 


2495* 


2504* 2510* 2522* 2523* 


BDB 


017167 


1609 


1717 


3121# 








RDCHR a 


104406 


2207 


2485# 










RDDEC a 


104411 


522 


1585 


1680 


2488« 






RDLIN a 


104407 


2280 


2405 


2486» 








RDOCT a 


104410 


533 


552 


575 


607 


633 


679 689 1364 1405 






1532 


1571 


1577 


1641 


1690 


2487» 


REDO] 


006574 


1369 


1371 


1374 


1381 


1397 


142S« 


RSD02 


007044 


1452 


1454 


14S7 


1464 


1479 


1511# 


RED03 


007426 


1537 


1539 


1542 


1549 


1564 


1620» 


RED03A 


007436 


1589 


1591 


1622# 
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RED04 


010050 


1646 


1648 


1651 


1658 


1673 


1729# 
















RED04A 


010060 


1684 


1686 


173l» 






















PESTRT 


001772 


485# 


1785 


1854 


2527 


2894 


















RESVECs 


ooooio 


156# 


488» 


489« 






















RETRY 


002346 


526 


528 


596# 






















RFTPYO 


002356 


557 


559 


562 


566 


599# 


















RETRYl 


002366 


580 


592 


585 


589 


6021 


















RETPY2 


002750 


638 


640 


643 


647 


718# 


















RETRY3 


002760 


693 


695 


72H 






















RFLGO 


001424 


380# 


1129 


1186 


1243 


1300 


2562* 


2716* 














RFLGl 


001426 


381# 


1131 


1188 


1245 


1302 


2569* 


2717* 














RINT 


013416 


2558# 


2705 
























ROTADD 


0')l276 


273S 


624» 


652* 


654 


657* 


664 


665* 


1795* 


1800 


1821* 








RSTALL 


020604 


1567 


1689 


3262# 






















PSVFRR 


015060 


488 


2880# 
























RTRY 


001430 


382# 


1124» 


1172# 


1173 


U81* 


1229* 


1230 


1238* 


1286* 


1287 


1295* 


1340* 


1341 


SELCAP 


020403 


1403 


1485 


1575 


3240!» 




















SELDLY 


020511 


1410 


1492 


3252# 






















STACK a 


001100 


60# 


400 


485 


1354 


1437 


1522 


1631 














STALL 


013604 


1598 


J707 


2602# 






















STKLMTs 


177774 


7H 


























STLf*SK 


001306 


290# 


2614 
























STMES 


016651 


462 


498 


308S« 






















SUERRl 


Ol4t00 


899 
1337 


925 
2683U 


U52 
2803 


1161 


1169 


1209 


1218 


1226 


1266 


1275 


1283 


1322 


1330 


SUEPTl 


014132 


735 


750 


765 


780 


2691« 


















SUERT2 


014160 


1392 


1474 


1559 


1668 


2696# 


















SUER2 


014052 


794 


804 


815 


821 


840 


850 


861 


867 


914 


939 


945 


951 


955 






970 


976 


984 


991 


1006 


1013 


1020 


1026 


1040 


1046 


1067 


1078 


1082 






1095 


1101 


1115 


2678t 




















SUVEC 


014206 


1123 


1180 


1237 


1294 


2704» 


















SWR 


001140 


195» 


398 


419* 


421 


427* 


442 


502 


931 


962 


998 


1033 


1052 


1088 






1874 


1888 


1890 


1896 


1903 


1940 


1947 


1952 


1955 


2502 


2515* 






SWREG 


000176 


44» 


427 
























swo = 


000001 


124# 


502 
























swoo = 


oooooi 


114# 


124 
























swoi = 


000002 


113» 


123 
























SW02 a 


000004 


112» 


122 
























SW03 = 


oooolo 


1118 


121 
























SW04 s 


000020 


110# 


120 
























SW05 = 


000040 


109» 


119 
























SW06 = 


OOOlOO 


108« 


118 
























SW07 = 


000200 


107l» 


117 
























SWOB s 


000400 


106« 


lib 
























SW09 = 


ooiooo 


105» 


115 
























SWl = 


000002 


123# 


























SWIO s 


002000 


104# 


























SWll = 


004000 


103# 


























SWJ2 a 


010000 


102# 


931 


962 


998 


1033 


1052 


1088 














SWl 3 = 


020000 


101# 


























SW14 s 


040000 


100# 


























SWJ5 a 


looooo 


99# 


























SW2 = 


000004 


122» 


























SW3 = 


oooolo 


121» 


























SW4 3 


000020 


120» 


























SW5 = 


000040 


119» 
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SW6 s 


OOOlOO 


UBS 


























SW7 = 


000200 


117« 


























SWB = 


OOO4OO 


116# 


442 
























SW9 « 


OOlOOO 


115i 


























TABFLG 


001256 


242K 


433* 


483* 


495 


500* 


1784* 
















TBITVEs 


000014 


157# 


























TCONT 


013722 


2631 


2635K 
























TIMERX 


013676 


1607 


1716 


2627# 






















TIMETX 


013714 


1599 


17 08 


2633» 






















TIMPl 


001440 


386« 


1137* 


1194* 


1251* 


1308* 


2722* 
















TIMR2 


001442 


387» 


1139* 


1196* 


1253* 


1310* 


2723* 
















TKVEC s 


000060 


164# 


























TPVEC = 


000064 


165# 


























TRAPVEs 


000034 


163» 


406* 


407* 


1355* 


1356* 


1438* 


1439* 


1523* 


1524* 


1632* 


1633* 






TRPCOM 


015104 


2876 


2883 


2887# 






















TRTVECs 


000014 


158<( 


























TSTl 


002770 


511 


717 


729» 


1816 




















TSTIO 


003340 


820 


826« 
























TSTU 


003464 


844 


849 


855# 






















TST12 


003534 


666 


872# 
























TSTU 


004016 


905 


924 


930» 






















TSTl 4 


004146 


932 


954 


961# 






















TST15 


004274 


96 3 


990 


997# 






















TSTl 6 


004422 


999 


1025 


1032» 






















TST17 


004502 


1034 


1045 


1051» 






















TST2 


003036 


744» 


























TST20 


004644 


1053 


1072 


1081 


1087» 




















TST21 


004726 


1089 


1100 


1108« 






















TST22 


004760 


1114 


1121# 
























TST23 


005252 


1136 


1147 


1156 


1165 


1178« 


















TST24 


005544 


1193 


1204 


1213 


1222 


1235« 


















TST25 


006036 


1250 


1261 


1270 


1279 


1292# 


















TST3 


003104 


759# 


























TST4 


003152 


774# 


























TST5 


003220 


789# 


























TST6 


003242 


793 


799« 
























TST7 


003266 


803 


809« 
























TYPOS a 


IO44O5 


1843 


2482» 
























TYPE a 


104401 


462 


463 


465 


498 


520 


531 


549 


574 


596 


599 


602 


60S 


630 






677 


688 


718 


721 


1143 


1200 


1257 


1314 


1359 


1361 


1403 


1410 


1425 






1442 


1444 


1485 


1492 


1511 


1527 


1529 


1567 


1575 


1583 


1601 


1609 


1620 






1622 


1636 


1638 


1678 


1689 


1710 


1717 


1729 


1731 


1778 


1841 


1844 


1942 






1950 


1972 


1989 


1991 


1994 


1996 


2000 


2007 


2072 


2148 


2214 


2220 


2225 






2229 


2234 


2235 


2237 


2240 


2244 


2309 • 


2311 


2349 


2442 


2444 


2478» 


2524 


TYPOC = 


104402 


1980 


2004 


2479# 






















TYPON 3 


104404 


2481# 


























TYPOS a 


104403 


2480# 


























UPMASK 


014744 


884 


918 


2662 


2850« 




















VECT 


002264 


574« 


604 
























XDB 


017120 


1601 


1710 


3114# 






















XFLGO 


001422 


379» 


1127 


1184 


1241 


1298 


2544* 


2715* 














XINT 


013330 


2540# 


2707 
























XMSGl 


016342 


1143 


3049# 
























XM5G2 


016421 


1200 


3057# 
























XMSG3 


OI65O2 


1257 


30661 
























XMSG4 


OI656S 


1314 


3075# 
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SAUTOB 


001134 


192# 


















$BDADR 


001122 


187# 


















SBDDAT 


001126 


189# 


















SBELL 


001246 


233*' 


1942 


1963 














$CHARC 


0127(^4 


2351» 


2361* 


2368 


2377* 


23821 










SCKSWRs 


{(»««#» U 


2485 


















SCMTAG 


OOUOO 


175# 


395 


396 


404 


410 


411 








SCMl a 


ooooio 


207# 


208# 


209# 


210« 


211# 


212# 


213# 


214# 


215# 


$CM2 s 


000020 


207» 


208# 


209» 


210# 


21l# 


212# 


213# 


214# 


215» 


$CM3 = 


ooooio 


205» 


207 
















SCM4 a 


000020 


215!» 
228# 


2l6)f 
229« 


217» 
230» 


218# 
231S 


219# 


220# 


221» 


222« 


223« 


SCNTLG 


012301 


2255# 


















SCNTLU 


012274 


2229 


2254# 
















SCRLr 


001253 


235» 


1950 


1963 


1972 


1991 


1996 


2000 


2234 


2254 


SDBLK 


011700 


2114 


2148 


2156# 














8D0AGN 


010452 


1837 


1846 


1852# 














$DTBL 


011670 


2117 


2152# 
















$ENDAD 


010442 


18488 


















$ENDCT 


010410 


1839# 


















SENDMG 


010461 


1841 


lfl56# 
















SENULL 


010456 


1844 


1855« 
















SEOP 


010144 


1307 


1317 


1325 


1333 


1343 


1767# 








SEOPCT 


010402 


1836# 


1840 
















8ERFLG 


001103 


178» 


1864 


1892 


1894 


1900* 


1921 


1937* 


1963 




SERMAX 


001115 


184« 


412» 


1894 


1916* 


1921 










SERROP 


010746 


404 


1357 


1440 


1525 


1634 


1936* 








SERPPC 


001116 


18511 


1944» 


1945* 


1946 


1963 


1978 


2920 


2942 


2964 


SERPTB 


001310 


312# 


1986 
















SERRTY 


011102 


1949 


1971s 
















SERTTL 


001112 


182« 


1943* 


1963 














SESCAP 


001244 


232# 


411* 


736* 


751* 


766* 


781* 


841* 


900* 


1069* 






1201» 


1210» 


1219* 


1227* 


1258* 


1267* 


1276* 


1284* 


1315* 






1475* 


1560» 


1669* 


1915* 


1958 


1960 


1963 


2804* 


2891* 


sfillc 


001156 


203# 


2354 


2385 














sriLLS 


001155 


202» 


2385 
















SGDAOP 


001120 


186# 


















SGDDAT 


001124 


188# 


















$GET42 


010432 


1845« 


















SGTSWRs 


»»4k»»» U 


2484 


















$HD = 


000001 


16 


17 
















SHIOCT 


012466 


2302* 


2313# 
















SICNT 


001104 


179« 


19o7» 


1908 


1910* 


1920 










$ILLUP 


013312 


2494 


2510 


2529# 














SINTAG 


001135 


193« 


















SITEMB 


001114 


183* 


1946* 


1963 


1975 












SLF 


001254 


236# 


1963 


2244 


2254 


2314 


2385 


2446 






SLPADR 


001106 


i80# 


413* 


1898* 


1913* 


1918 


1920 








$LPERR 


OOIUO 


181# 


414* 


1898 


1914* 


1920 


1957 








SMAIL 3 


»!(«»»» u 


431 


1913 


1952 


2338 












SMNEW 


012317 


2258# 


















SMSWR 


012306 


2256« 


















$MXCNT 


010744 


1911 


1920i( 
















$NULL 


001154 


201# 


2356 


2385 














$NWTST= 


OOOoOl 


726» 


741« 


756* 


771# 


786# 


796# 


806» 


823« 


852# 






1029# 


1048# 


1084» 


1105# 


1118« 


1175# 


1232» 


1289# 





3007 3020 3032 3045 



1144* 1153* 1162* 1170* 
1323* 1331* 1338* 1393* 
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SOCNT 


011460 


2044* 


2073* 


2086# 






















80M0DE 


011462 


2039* 


2043* 


2048 


2051* 


2062* 


2088# 
















SOVER 


010730 


1875 


1891 


1899 


1909 


1917# 


















8PASS 


OOUOO 


176# 


1833* 


1834* 


1842 


1855 


1905 


1921 














SPOWER 


013320 


2525 


2532» 
























$PWRAD 


013306 


2527# 


























$PWRDN 


013146 


408 


2494» 


2522 






















$PWRMG 


013302 


2525« 


























SPWPUP 


013220 


2504 


2510# 
























SOUES 


001252 


234# 
2237 


596 

2254 


599 
2311 


602 
2314 


718 
2385 


721 
2444 


1425 
2446 


1511 


1620 


1622 


1729 


1731 


1963 


SRDCHR 


0U710 


2174« 


2485 
























SRDDEC 


012710 


2400« 


2488 
























8RDL1N 


012030 


2202» 


2486 
























SRDOCT 


012330 


2275» 


2487 
























8RDSZ = 


ooooio 


2195# 


























$REGAD 


001160 


205# 


























SPEGO 


001162 


207# 


2684* 


2694* 


2889* 


2920 


2942 


2964 


2983 


3007 










SREGl 


001164 


208» 


2654* 


2656* 


2685* 


2695* 


2920 


2942 


2964 


3007 


3032 


3045 






$REG2 


001166 


209# 


2652* 


2654 


2686* 


2699* 


2920 


2942 


2964 


3007 


3020 


3032 


3045 




$REG3 


001170 


210« 


2658* 


2687* 


2942 


2964 


3007 


3032 


3045 












$REG4 


001172 


211# 


2667* 


2688* 


2942 


2964 


3045 
















8REG5 


001174 


212» 


























$REG6 


001176 


213# 
2964 


895* 
2983 


2543* 
3007 


2561* 
3020 


2567* 


2681* 


2682* 


2697* 


2698* 


2798* 


2887* 


2920 


2942 


8REG7 


001200 


214# 


956* 


2892* 


2983 




















$BTNAD 


010454 


i854# 


























8R2A a 


***»»» U 


2489 


























ISAVREa 


»»*»*» u 


2489 


























SSAVR6 


013316 


2503* 


2511 


2512* 


2513* 


253H 


















ISCOPE 


010476 


402 


1873# 
























SSETUPs 


000017 


392# 
1962 


401 
2163 


402 
2260 


404 


406 


408 


410 


411 


413 


1831 


1874 


1937 


1955 


8STUP a 


177777 


392» 


























SSVLAD 


010702 


1883 


1912^ 
























$SWR s 


1S7400 


3» 


16 


24 


25 


26 


27 


28 


29 


30 


31 


231 


232 


233 






410 


411 


413 


414 


730 


745 


760 


775 


790 


800 


810 


827 


856 






873 


931 


962 


998 


1033 


1052 


1088 


1109 


1122 


1179 


1236 


1293 


1764 






1832 


1847 


1853 


1855 


1865 


1866 


1867 


1868 


1869 


1874 


1886 


1888 


1889 






1892 


1893 


1894 


J901 


1902 


1903 


1914 


1917 


1920 


1928 


1929 


1930 


1931 






1932 


1940 


1947 


1952 


'1955 


1963 


2528 














SSWPMKk 


000000 


31 


32 


1869 


1870 


1890 


















STIME5 


001242 


231« 


410* 


1122* 


1179* 


1236* 


1293* 


1832* 


1901* 


1908 


1911* 


1920 






$TKB 


001146 


198# 


2161 


2178 


2184 




















STKS 


001144 


197« 


2161 


2176 


2182 




















8THP0 


001202 


215# 


892* 


1382* 


1418* 


1465* 


1504* 


1550* 


1594 


1605* 


1659* 


1703 


1714* 


2542 






2560* 


2566* 


2678* 


2691* 


2797* 


2890* 


2920 


2942 


2964 


2983 


3007 






8TMP1 


001204 


216# 
1605 


878* 
1701* 


883* 
1714 


907* 
2568* 


1168 
2696* 


1225 
2850 


1282 
3020 


1336 


1407* 


1418 


1489* 


1504 


1579 


$TMP10 


001222 


223# 


























STMPU 


001224 


224# 


1696» 


1697 


1700* 




















8TMPI2 


001226 


225# 


1697* 


1698* 


1699* 


1700 


1701 
















STMP13 


001230 


226# 


























$TMP14 


001232 


2278 


886 


887 


921 


2664 


2667 


2850* 


2868* 












$TMP15 


001234 


228« 


434* 


529* 


1592* 


1687* 


2818 


2822 


2826 


2854 


2858 


2862 






STMP16 


001236 


229# 
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STMPJ7 


001240 


230« 


























STMP2 


001206 


217« 


14l5» 


1416 


I497» 


1502 


1573» 


1596 


1692* 


1705 










$TMP3 


001210 


21B# 


1594» 


1595» 


1603» 


1611 


1703» 


1704» 


. 1712* 


1719 


2627 


2633 






STMP4 


O01212 


219« 


16U» 


1613« 


1615 


1719» 


1721» 


1723 


2652 












STMP5 


001214 


220# 


16l5» 


1723« 


2650 


2658 


2664 
















$TMP6 


001216 


221» 


2635» 


2636» 


2650» 


2660 


















STMP7 


001220 


222« 


276l» 


2763 


2766* 


2774» 


2775 


2776* 


2777 


2778* 


2779* 








STN a 


000026 


isn 


726 


730» 


741 


745# 


756 


760# 


771 


775» 


786 


790» 


793 


796 






800# 


803 


806 


8ld# 


820 


823 


827» 


844 


849 


852 


e56# 


866 


869 






873» 


905 


924 


927 


931# 


932 


954 


958 


962# 


963 


990 


994 


998» 






999 


1025 


1029 


1033» 


1034 ' 


1045 


1048 


1052« 


1053 


1072 


1081 


1084 


1088» 






1089 


1100 


1105 


U09# 


1114 


1U8 


1122« 


1136 


1147 


1156 


1165 


1175 


U79# 






1193 


1204 


1213 


1222 


1232 


1236# 


1250 


1261 


1270 


1279 


1289 


1293« 




STPB 


001152 


200# 


2374* 


2385 






















$TPFLG 


001157 


204# 


2332 


2385 






















STPS 


001150 


199# 


2372 


2385 






















STRAP 


013066 


406 


1355 


1438 


i523 


1632 


2455tf 
















STPAP2 


013110 


2466S 


2477 
























$TRP s 


000012 


2470« 


2479# 


24eo# 


2481# 


2482# 


2483* 


2485 


24B6# 


2487« 


2488# 


2489# 






STRPAD 


013122 


2460 


2477« 
























$TSTNM 


001102 


177« 


1810* 


1831* 


1864 


1890 


1912» 


1917 


1921 


1939 


1963 


2683 


2692 


2888 


STTYIN 


012264 


2204 


2205 


2217 


2235 


2249 


2253« 
















STYPBNs 


»»«««» U 


2483 


























STYPDS 


011464 


2102» 


2482 
























STYPE 


012470 


2332* 


2470 


2478 






















$TYPEC 


012640 


2353 


2360 


2367 


2372# 


237 3 


















STYPEX 


012706 


2378 


2380 


2383* 






















STYPOC 


011262 


2042» 


2479 
























STYPON 


011276 


2041 


2044» 


2481 






















$TYPOS 


011236 


20379 


2480 
























SXTSTR 


010506 


1877« 


























8SGET4S 


000000 


1847M 


























SOFILL 


011461 


2038» 


2042» 


2052 


2087» 




















$40CAT= 


»»«»»» u 


1874 


1949 
























( * 


022262 


38» 


42# 


52» 


174» 


237 


399 


413 


414 


956 


1855 


1859 


1920 


1921 






1963 


20101 


2156« 


2161 


2253# 


2254 


2260 


2314 


2385 


2446 


2506 


2530 


2941» 






3019# 


303U 


3322# 


3325» 
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COMMEN 


1671 






























ENDCOM 


167« 






























EOPBEG 


19# 


1768 




























ERROR 


6l« 


464 


737 


752 


767 


782 


795 


805 


816 


822 


842 


851 


862 


868 


901 




915 


926 


940 


946 


952 


957 


971 


977 


985 


992 


1007 


1014 


1021 


1027 


1041 




1047 


1070 


1079 


1083 


1096 


1102 


1116 


1145 


1154 


1163 


1171 


1202 


1211 


1220 


1228 




1259 


1268 


1277 


1285 


1316 


1324 


1332 


1339 


1394 


1476 


1561 


1602 


1610 


1670 


1711 




1718 


2669 


2671 


2805 


2893 






















ESCAPE 


167« 






























GETPRI 


167# 






























GETSWR 


167# 






























MORETA 


18» 


238 




























MULT 


167# 






























NEWTST 


167« 
1048 


726 
1084 


741 
1105 


756 
1118 


771 
1175 


786 
1232 


796 
1289 


806 


823 


852 


869 


927 


958 


994 


1029 


POP 


4# 


167# 


2143 


2303 


2435 


2515 


2516 


















PUSH 


4# 


167« 


2102 


2277 


2402 


2496 


2502 


















REPORT 


167« 






























SCOPE 


62# 


729 


744 


759 


774 


789 


799 


809 


826 


855 


872 


930 


961 


997 


1032 




1051 


1087 


1108 


1121 


1178 


1235 


1292 


1772 
















SETPRI 


167» 






























SETTRA 


2470» 


2479 


2480 


2481 


2482 


2485 


2486 


2487 


2488 














SETUP 


4# 


167« 


394 


























SKIP 


167» 


734 


7 49. 


764 


779 


793 


803 


814 


820 


843 


849 


860 


866 


905 


913 




924 


932 


938 


944 


950 


954 


963 


969 


975 


983 


990 


099 


1005 


1012 


1019 




1025 


1034 


1039 


1045 


1053 


1071 


1077 


1081 


1089 


1094 


1100 


1114 


1136 


1146 


1155 




1164 


1193 


1203 


1212 


1221 


1250 


1260 


1269 


1278 














SLASH 


167» 






























SPACE 


167# 






























STARS 


4» 


167# 


170 


237 


370 


372 


726 


728 


741 


743 


756 


758 


771 


773 


786 




788 


796 


798 


806 


808 


823 


825 


852 


854 


869 


871 


927 


929 


958 


960 




994 


996 


1029 


1031 


1048 


1050 


1084 


1086 


1105 


1107 


1118 


1120 


1175 


1177 


1232 




1234 


1289 


1291 


1761 


1830 


1861 


1924 


1966 


2014 


2092 


2160 


2166 


2195 


2263 


2317 




2388 


2449 


2492 


2508 


2536 


2538 


2554 


2556 


2674 


2676 


2898 


2900 








SWRSU 


167# 


415# 




























TRMTPP 


2470# 






























TYPBIN 


167» 






























TYPDEC 


167# 


1842 




























TYPNAM 


167« 






























TYPNUM 


167» 






























TYPOCS 


167# 






























TYPOCT 


l67Jf 


1978 


2002 


























TYPTXT 


167# 






























S8CMRE 


168# 


207 


208 


209 


210 


211 


212 


213 


214 














S8CMTM 


168# 
229 


215 
230 


216 


217 


218 


219 


220 


221 


222 


223 


224 


225 


226 


227 


228 


SSESCA 


167? 






























SSNEWT 


1679 
1048 


726 
1084 


741 
1105 


756 
1118 


771 
1175 


786 
1232 


796 
1289 


806 


823 


852 


869 


927 


958 


994 


1029 


SSSET 


2470# 


2479 


2480 


2481 


2482 


2485 


2486 


2487 


2486 














SSSKIP 


167# 


793 


803 


820 


844 


849 


866 


905 


924 


932 


954 


963 


990 


999 


1025 




1034 


1045 


1053 


1072 


1081 


1089 


1100 


1114 


1136 


1147 


1156 


1165 


1193 


1204 


1213 




1222 


1250 


1261 


1270 


1279 






















,EOUAT 


4« 


57 




























gHEADE 


4« 


6 




























, SETUP 


4# 


392 
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,SWRHI < 


l# 20 


»SWRLO ^ 


l# 32» 


,SCATC ^ 


^» 36 


,8CMTA < 


II 166 


,SEOP ^ 


l« 1759 


.SEPRO < 


# 1922 


,$ERRT 4 


» 1964 


.IPOWE i 


t» 2490 


,$RDDE < 


# 2386 


,$RDOC < 


# 2261 


,$READ i 


l# 2158 


,$SCOP ^ 


# 1859 


.STRAP < 


J 2447 


.STVPD < 


,« 2090 


.STYPE i 


U 2315 


,$Typo < 


l» 2012 



ABS. 022262 



ERRORS DETeCTEDi 



DSKZ!DZDLCBtBIN,DSKZlDZDLCB,LST/CHF/SOL/NL|TOCsDSKZ I DZDLCB.Pll 
RUN-TIMEi 21 10 1 SECONDS 
RUN-TIME PaTIOi 314/33=9.4 
CORE USEDi 25K (49 PAGES) 



